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Abstract 


This report describes my successful project to build a working reproduction of the 1964 
prototype for the Block I Apollo Guidance Computer. The AGC is the flight computer for the 
Apollo moon landings, and is the world's first integrated circuit computer. 

I built it in my basement. It took me 4 years. 

If you like, you can build one too. It will take you less time, and yours will be better than 
mine. 

I documented my project in 9 separate .pdf files: 

Part 1 Overview: Introduces the project. 

Part 2 CTL Module: Design and construction of the control module. 

Part 3 PROC Module: Design and construction of the processing (CPU) module. 

Part 4 MEM Module: Design and construction of the memory module. 

Part 5 IO Module: Design and construction of the display/keyboard (DSKY) module. 

Part 6 Assembler: A cross-assembler for AGC software development. 

Part 7 C++ Simulator: A low-level simulator that runs assembled AGC code. 

Part 8 Flight Software: My translation of portions of the COLOSSUS 249 flight 

software. 

Part 9 Test & Checkout: A suite of test programs in AGC assembly language. 



Overview 


This document describes my AGC Block I C++ simulator. I developed it almost entirely from 
detailed information in this document: 


A. Hopkins, R. Alonso, and H. Blair-Smith, "Logical Description for the Apollo Guidance 
Computer (AGC4)", R-393, MIT Instrumentation Laboratory, Cambridge, MA, Mar. 1963. 

My simulator reproduces not only the AGC instruction set and user-accessible registers, but 
all of the registers, all microinstructions, time-pulse generator states, read, write and 
memory busses, and control pulses (logic signals) for all AGC subsystems. 

The simulator is a tool I used to capture AGC design from the R-393 document. When I got 
it working well enough to run my test and checkout software suite (described in part 9) and 
flight software (described in part 8), I knew I understood the AGC well enough to build one. 


The simulator header and source code files became requirements that guided my AGC logic 
design (described in parts 2-5). 


Running the simulator 


The simulator is run by keyboard commands. The output is a scrolling, formatted text 


display; the compiler obligingly provides a little DOS window for viewing the output. It looks 
like this (most of 


the numbers are 
in octal): 

The top line is 
the revision 
number of the 
simulator. I 
went through 
lots of versions. 

The second line 
shows the Time 
Pulse Generator 
state (TP11) and 
some of the 
important scaler 
outputs. 


AGC4 SIMULATOR 1.16 
TP: TP11 F17:0 F13:0 

STA:0 STB:0 BR1:0 

RPCELL:00000 INH1:0 INH:1 
CP:ST1 WE 
S: 0337 G:040300 P:100300 

RBU:000000 WBU:000000 P2:l 

B:000300 CADR:000337 

X:000000 Y:003425 U:003426 


Cl:1 LOOPCTR:0 
DnCELL: 0 0 0 SQ:02 INDEX NDX0 

(r) RUN :1 (p)PURST:0 (F2,F4)FCLK:0 

(s) STEP:0 

(n)INST:1 PALM:[*] 

(a)SA : 0 


F10:2 SCL:165130 
BR2:0 SNI:0 
UpCELL:000 


00 A:000000 

01 Q:003422 

02 Z :003426 

03 LP:000003 
04 IN0:000034 
05 INI:000000 
06 IN2:000000 
07 IN3:000000 

10 OUTO: 

11 OUT1:000201 

12 OUT2:000000 

13 OUT3:000000 

14 OUT4:000000 


15 

BANK:07 

36 

TIME1:126367 

53 

OPT 

Y:000001 

16 

RELINT: 

37 

TIME3:137645 

54 

TRKR 

X:100000 

17 

INHINT: 

40 

TIME4 :0377 7 5 

55 

TRKR 

Y:100000 

20 

CYR:155757 

41 

UPLINK:100000 

56 

TRKR 

Z:100000 

21 

SR:100011 

42 

OUTCR1:100000 




22 

CYL:077765 

43 

OUTCR2:100000 

CF: 

: [ ] : 

:KR [ ] : 

23 

SL:000000 

44 

PIPA X:100000 




24 

ZRUPT:003515 

45 

PIPA Y:100000 

A: 

: [ *] 

M:[00] 

25 

BRUPT:110307 

46 

PIPA Z:100000 

V: 

s [16] 

N: [36] 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: 

: [ +00000 ] 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2 : 

:[ +00001 ] 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3: 

:[ +05423 ] 

35 

TIME2:100000 

52 

OPT X:100000 





The next line shows the current state of some small registers in the SEQ subsystem, which 
is part of the AGC control module. STA and STB stage registers which select instruction 
subsequences. BR1 and 2 are the branch registers. SNI is "select next instruction", a 1-bit 
register that does exactly that. Cl is the "carry-in" bit for the ALU. The loop counter is used 
for iterating through arithmetic instructions. 


The next line, starting with RPCELL, shows important registers associated with interrupts 
and the priority counters. The tail-end of the line shows the current instruction (in the SQ 
register), which is an INDEX instruction. The subsequence is NDX0. 



The next line (CP) shows currently asserted control pulses (logic signals). ST1 and WE are 
being asserted. 


The left side of the next 4 lines shows the state of registers associated with memory (S, G, 

P, P2, and CADR), the ALU (B, X, Y, U), and the read bus (RBU) and write bus (WBU). 

The right side of those 4 lines shows control inputs for running, stepping, and clocking the 
sim ulator. 

The bottom part of the display shows AGC memory. The 2-digit numbers on the left show 
memory addresses from 00-56. Each memory location has a name; it's shown to the right of 
the address. Immediately to the right of that is the contents of that location. 

Addresses 00-17 are mapped to AGC registers, and are not really part of the AGC eraseable 
memory. Addresses 00-03 are the AGC central registers, followed by input and output 
registers. 

Addresses 16 and 17 are not storage locations, but a means for enabling and disabling 
interrupts. 

The eraseable memory starts at address 20. Addresses 20-23 are the editing registers. 
Writing to these causes the data in the registers to be shifted or rotated. 

Addresses 24-27 are used for saving the central registers (00-03) when an interrupt occurs. 

Addresses 34-56 are priority counter locations. The AGC will increment or decrement these 
based on + pr - logic signals to the priority counter cells. 

The lower right of the simulator is the DSKY: the display/keyboard user interface for the 
astronauts. The simulator is running the COLOSSUS 249 flight software load, and is 
currently executing major mode 0 (POO), verb 16, noun 36, which is a monitor program to 
continuously display the command module elapsed time clock. The clock, displayed in Rl, 

R2, and R3, shows 0 hours, 1 minute, and 54.23 seconds. It updates about once a second 
but, of course, you can't see that here. 

Compiler 

The simulator was compiled with Microsoft Visual C + + 6.0 Standard Edition. 



Commands 


Here's the complete list of commands the simulator knows. The keyboard key you hit is: 
{Q}, and the name of the command is: <QUIT>. 



Simulator commands 

{q> <QUIT> 

{1} < LOAD > 


{m > <MENU> 


Exits the simulator. 

The command is a lower case "L", not a "1". Load fixed 
memory with object code produced by the assembler. 
The object code files are in Motorola S-Record format 
(compatible with EPROM programmers). The command 
will ask for a filename. 

Intended to be a useful menu of simulator command, 
but I never got around to it. 


Hardware reset commands 

{p} <POWER UP RESET> Asserts the PURST control signal. This is a power-up 

reset signal that is supposed to be automatically 
generated when the AGO initially powers on. 

{h} <RESET> Asserts the GENRST control signal. 


Clock controls 

{ FI} <CLK> 

{F2> < MCLK> 

<FCLK> 


Single-step the AGC clock. Only works when MCLK <F2> 
has been selected. 

Asserts the MCLK control signal. Disables the free- 
running 1MHz clock. When MCLK is selected, you can 
single-step the clock by by pressing <F1>. 

Asserts the FCLK control signal. Causes the simulator 
clock to free-run at 1MHz. This is the normal operational 
mode. 


{ F4> 









































Time pulse generator (TPG) controls 

{r} <RUN> Toggles between the "run" (1) and "step" (0) modes. 

"Run" makes the AGC free-run (the normal mode). 
"Step" single-steps the AGC, either by instruction or by 
instruction subsequence. 


{S> 

<STEP> 

Steps the AGC to the next instruction or instruction 
sequence when <R> is toggled to the step mode. 

{n> 

<INST > 

Toggles whether the AGC steps by instruction (1) or 
instruction subsequence (0). Each instruction contains 
one or more subsequences. Each subsequence is 12 
steps or timing pulses long. 

Debugger commands 


{e> 

<EXAMINE> 

Examines the contents of memory. The command asks 
for a starting address and then displays the memory 
data at that address and following locations. 

{y> 

< WATCH > 

Halts the AGC when any instruction changes a watched 
memory location. The command asks for a memory 
address (CADR) to watch. 

{b> 

<BREAKPOINT> 

Toggles a breakpoint on/off. When the breakpoint is on, 
it halts the AGC when instruction execution hits that 

address. 

{d} 

< DISPLAY > 

Displays or refreshes the standard AGC register display. 

{f> 

<DEBUG> 

Displays the currently executing AGC source code. You 
can single step with this display and watch the AGC 
move through the source code. Very useful for 
debugging. A ">" arrow shows the next instruction to be 
executed in the listing. 


Scaler controls 

{z} <F17> Manually generates the <F17> scaler pulse. Useful for 

testing when the scaler has been toggled to off <C>, or 
when you're single-stepping the AGC. 

{x> <F13> Manually generates the <F13> scaler pulse. Useful for 

testing when the scaler has been toggled to off <C>, or 
when you're single-stepping the AGC. 

{c> cTOGGLE SCALER> Toggle the scaler on/off. When the scaler is off, the F13 

and F17 signals are not automatically generated. 

Priority counter controls 

{[} <-CNTR> Manually assert a minus input to a prority counter cell. 

The command will ask for the cell number. 

Manually assert a plus input to a priority counter cell. 
The command will ask for the cell number. 


{]} < + CNTR> 



Interrupt controls 

{i} <INTERRUPT> Generates an AGC interrupt. The command will ask you 

for an interrupt number (1-5). 


Other AGC controls 

{a} <STANDBY ALLOWED> The standby allowed switch lets the AGC software put 

the AGC in a standby mode. 

{;} <CLEAR PARITY ALARM> Clears the parity alarm. The alarm is generated when an 

error occurs (odd parity) in memory. 


DSKY controls 

{/} <VERB> 

The 

{*} 

<NOUN> 

The 

{-> 

<MINUS> 

The 

{ + > 

<PLUS> 

The 

{■> 

<CLEAR> 

The 

{j> 

< ENTER> 

The 

{g> 

<KEY REL> 

The 


VERB key on the DSKY display. 

NOUN key on the DSKY display. 

MINUS key on the DSKY display. 

PLUS key on the DSKY display. 

CLEAR key on the DSKY display. 

ENTER key on the DSKY display. 

KEY RELEASE key on the DSKY display. 



Simulator demonstration 


Here's the simulator, demonstrating some COLOSSUS 249 flight software functions. This is 
the same scenario I ran in Part 1 using my hardware AGC. 


Initialization 


At startup, the simulator loads the microinstructions from the EPROM tables. These are the 
same tables I eventually used to program the hardware AGC EPROMs. 


Reading EPROM 
Reading EPROM 
Reading EPROM 
Reading EPROM 
Reading EPROM 
Reading EPROM 
Reading EPROM 


CPMl_8.hex 

CPM9_16.hex 

CPM17_24.hex 

CPM25_32.hex 

CPM33_40.hex 

CPM41_48.hex 

CPM49_56.hex 


The simulator is now initialized 
and ready for commands. 


AGC4 SIMULATOR 

1.16 






TP: STBY F17 

: 0 

F13:0 F10:0 

SCL 

i: 000000 




STA:0 STB 

: 0 

BR1:0 BR2:0 

SNI 

:0 Cl:0 LOOPCTR:0 


RPCELL:00000 

INHl 

:0 INH:0 UpCELL 

,:000 DnCELL:000 

SQ:00 TC 

TC0 


CP:GENRST 








S: 0000 

G: 

000000 P:000000 


(r)RUN :0 (p)PURST:l (F2 

*3 

O 

tr 1 

X 

o 


RBU:000000 

WBU: 

000000 P2:0 


(s)STEP:0 




B:000000 


CADR:000000 

(n)INST:1 

PALM:[ ] 



X:000000 

Y: 

000000 U:000000 

(a)SA :0 



00 

A: 000000 

15 

BANK:00 

36 

TIME1:000000 

53 OPT 

Y:000000 

01 

Q:000000 

16 

RELINT: 

37 

TIME3:000000 

54 TRKR 

X:000000 

02 

Z:000000 

17 

INHINT: 

40 

TIME4:000000 

55 TRKR 

Y:000000 

03 

LP:000000 

20 

CYR:000000 

41 

UPLINK:000000 

56 TRKR 

Z: 000000 

04 

IN0:000000 

21 

SR:000000 

42 

OUTCR1:000000 



05 

INI:000000 

22 

CYL:000000 

43 

OUTCR2:000000 

CF: [ ]: 

KR [ ] : PA 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:000000 



07 

IN3:000000 

24 

ZRUPT:000000 

45 

PIPA Y:000000 

A: [ ] 

M: [ ] 

10 

OUTO: 

25 

BRUPT:000000 

46 

PIPA Z:000000 

V: [ ] 

N: [ ] 

11 

OUT1:000000 

26 

ARUPT:000000 

47 

CDU X:000000 

Rl: [ 

] 

12 

OUT2:000000 

27 

QRUPT:000000 

50 

CDU Y:000000 

R2: [ 

] 

13 

OUT3:000000 

34 

OVCTR:000000 

51 

CDU Z:000000 

R3: [ 

] 

14 

OUT4:000000 

35 

TIME2:000000 

52 

OPT X:000000 




< LOAD > 


The simulator asks, and I enter the name of object files containing the COLOSSUS flight 
software. 


<POWER UP RESET> <RUN> 
<FCLK> 

I tell the simulator to start 
running, and enable the free- 
running clock. The AGC starts 
running in real-time with the 1MHz 
clock. The DSKY shows major 
mode 00 (POO). 


AGC4 SIMULATOR 1.16 - 

TP: TP11 F17:0 F13:2 F10:0 SCL:174274 

STA:0 STB:1 BR1:0 BR2:1 SNI:0 CI:1 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCS1 


CP:NISQ RG WB RSC 



S: 3516 

G: 1 

043514 P:103514 



RBU:003514 

WBU: 1 

003514 P2:1 



B: 177777 


CADR:003516 


X:000000 

Y: 

177776 U:177777 


00 

A:000000 

15 

BANK:11 

36 

01 

Q:003517 

16 

RELINT: 

37 

02 

Z:003517 

17 

INHINT: 

40 

03 

LP:000000 

20 

CYR:177764 

41 

04 

IN0:000000 

21 

SR:100012 

42 

05 

INI:000000 

22 

CYL:000000 

43 

06 

IN2:000000 

23 

SL:000000 

44 

07 

IN3:000000 

24 

ZRUPT:003517 

45 

10 

OUTO: 

25 

BRUPT:103514 

46 

11 

OUT1:000200 

26 

ARUPT:103517 

47 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

13 

OUT3:000000 

34 

OVCTR:000000 

51 

14 

OUT4:000000 

35 

TIME2:100000 

52 


(r) RUN :1 (p)PURST:0 (F2,F4)FCLK:0 

(s) STEP:0 

(n)INST:1 PALM:[*] 

(a)SA : 0 


TIMEl:004372 

53 

OPT 

Y:000001 

TIME3:112321 

54 

TRKR 

X: 100000 

TIME4:1377 66 

55 

TRKR 

Y:100000 

UPLINK:100000 

56 

TRKR 

Z:100000 

OUTCR1:100000 

OUTCR2:100000 

CF: 

: [ ] i 

:KR t 3 :: 

PIPA X:100000 

PIPA Y:100000 

A: 

: [ ] 

M: [00] 

PIPA Z: 100000 

V: 

: [ ] 

N: [ ] 

CDU X:100000 

Rl: 

: t 

] 

CDU Y:100000 

R2: 

: t 

] 

CDU Z:100000 

R3: 

: [ 

] 


OPT X:100000 





Display elapsed time from 
the CM clock 

<VERB> <0> < 6> <NOUN> <3> 

<6> < ENTER> 


AGC4 SIMULATOR 1.16 - 

TP: TP3 F17:0 F13:0 F10:2 SCL:027604 

STA:0 STB:0 BR1:0 BR2:1 SNI:0 Cl:0 LOOPCTRrO 

RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCS0 



CP:WG WGn 








S: 0307 

G: 1 

050307 P:110307 


(r)RUN :1 (p)BURST:0 (F2,F4)FCLK: 


RBU:000000 

WBU: 1 

000000 P2:1 


(s)STEP:0 




B: 010307 


CADR:000307 


(n)INST:1 

PALM:[*] 



X: 000000 

Y: i 

003515 U:003515 


(a)SA : 0 



00 

A:000000 

15 

BANK:07 

36 

TIME1:011510 

53 OPT 

Y: 000001 

01 

Q:003517 

16 

RELINT: 

37 

TIME3:117437 

54 TRKR 

X:100000 

02 

Z:003515 

17 

INHINT: 

40 

TIME4:137774 

55 TRKR 

Y: 100000 

03 

LP:000000 

20 

CYR:177767 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

04 

IN0:000034 

21 

SR:100005 

42 

OUTCR1:100000 



05 

INI:000000 

22 

CYL:0777 65 

43 

OUTCR2:100000 

CF:[ ]: 

KR [ ] : 1 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003515 

45 

PIPA Y:100000 

A: [ ] 

M:[00] 

10 

OUTO: 

25 

BRUPT:110307 

46 

PIPA Z:100000 

V:[06] 

N: [36] 

11 

OUT1:000200 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: [ +00000 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100000 

R2:[ +00000 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3: [ +04442 ] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 




Test display lights 

<VERB > <3> < 5 > < ENTER> 

All DSKY lamps and display 
segments illuminate for 5 sec; 
after 5 sec, the DSKY lamps 
extinguish. 


AGC4 SIMULATOR 1.16 - 

TP: TP3 F17:2 F13:0 F10:2 SCL:303260 

STA:0 STB:0 BRl:0 BR2:1 SNI:0 CI:0 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCS0 



CP:WG WGn 








S: 0307 

G: i 

050307 P:110307 


(r)RUN :1 (p)PURST:0 (F2 

!, F4)FCLK: 


RBU:000000 

WBU:' 

000000 P2:l 


(s)STEP:0 




B:010307 


CADR:000307 


(n) INST: 1 

PALM:[*] 



X:000000 

Y:' 

003515 U:003515 


(a)SA : 0 



00 

A:000000 

15 

BANK:06 

36 

TIMEl:114036 

53 OPT 

Y:000001 

01 

Q:003517 

16 

RELINT: 

37 

TIME3:137444 

54 TRKR 

x.-iooooo 

02 

Z:003515 

17 

INHINT: 

40 

TIME4:037773 

55 TRKR 

Y: 100000 

03 

LP:000000 

20 

CYR:177767 

41 

UPLINK:100000 

56 TRKR 

Z: 100000 

04 

IN0:000034 

21 

SR:100011 

42 

OUTCRl:100000 



05 

INI:000000 

22 

CYL:077765 

43 

OUTCR2:100000 

CF:[**]: 

KR [*]:] 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [* ] 

M: [88] 

10 

OUTO: 

25 

BRUPT:103514 

46 

PIPA Z:100000 

V: [88] 

N: [88] * 

11 

OUT1:000724 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: [ +88888 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100000 

R2:[ +88888 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3:[ +88888 ] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 




Load component 1 for 
dataset at octal address 
50 with octal 123 

<VERB> <2> <1> <NOUN> <0> 
<1> < ENTER> 

Verb/noun display flashes: waiting 
for address. Flashing is indicated 
by the asterisk to the right of the 
NOUN display. 


AGC4 SIMULATOR 1.16 - 

TP: TP3 F17:2 F13:2 F10:0 SCL:236014 

STA:0 STB:0 BRl:0 BR2:1 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:0 UpCELL:000 DnCELL:000 SQ:00 TC TC0 

CP:WG WGn 



S: 3514 

G: i 

043514 P:103514 


(r) RUN : 1 (p)PURST:0 (F2,F4)FCLK: 


RBU:000000 

WBU: i 

000000 P2:1 


(s)STEP:0 




B:003514 


CADR:003514 


(n)INST:1 

PALM:[*] 



X: 000000 

Y: i 

003514 U:003515 

(a)SA : 0 



00 

A: 000000 

15 

BANK:06 

36 

TIMEl:117413 

53 OPT 

Y:000001 

01 

Q:003517 

16 

RELINT: 

37 

TIME3:113450 

54 TRKR 

X:100000 

02 

Z:003517 

17 

INHINT: 

40 

TIME4:137771 

55 TRKR 

Y:100000 

03 

LP:000000 

20 

CYR:177767 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

04 

IN0:000034 

21 

SR:100000 

42 

OUTCRl:100000 



05 

INI:000000 

22 

CYL:077765 

43 

OUTCR2:100000 

CF: [ ] : 

KR [ ]:1 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [ ] 

M: [00] 

10 

OUTO: 

25 

BRUPT:103514 

46 

PIPA Z:100000 

V: [21] 

N:[01] * 

11 

OUT1:000200 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: [ +88888 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100000 

R2:[ +88888 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3: [ 

] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 







<5> <0> < ENTER> 

Verb/noun display flash continues: 
waiting for data. 


AGC4 SIMULATOR 1.16 - 

TP: TP3 F17:0 F13:0 F10:0 SCL:162570 

STA:0 STB:0 BRl:0 BR2:1 SNI:0 CI:0 LOOPCTR:0 

RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCSO 


CP:WG WGn 







S: 0307 

G:( 

D50307 P:110307 


(r) RUN : 1 (p) 

PURST:0 (F2 

:,F4) FOLK: 

RBU:000000 

WBU: l 

D00000 P2:1 


(s) STEP: 0 



B:010307 


CADR:000307 


(n)INST:1 

PALM:[*] 


X:000000 

Y: 1 

D03515 U:003515 


(a)SA : 0 



A:000000 

15 

BANK:06 

36 

TIME1:122365 

53 OPT 

Y:000001 

Q:003517 

16 

RELINT: 

37 

TIME3:116422 

54 TRKR 

X:100000 

Z:003515 

17 

INHINT: 

40 

TIME4:137766 

55 TRKR 

Y:100000 

LP:000000 

20 

CYR:177767 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

IN0:000034 

21 

SR:100002 

42 

OUTCR1:100000 



INI:000000 

22 

CYL:077727 

43 

OUTCR2:100000 

CF:[ ]: 

KR [1:1 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [ ] 

M:[00] 

OUT0: 

25 

BRUPT:103514 

46 

PIPA Z: 100000 

V:[21] 

N: [01] * 

OUT1:000200 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: [ 

] 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100000 

R2:[ +88888 ] 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3:[ 50 ] 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 




<1> <2> <3 > < ENTER> 

Octal word from R1 is loaded at 
address 50. 


AGC4 SIMULATOR 1.16-- 

TP: TP7 F17:2 F13:0 F10:2 SCL:321004 


STA:0 STB:1 BRl:0 BR2:1 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCSl 

CP:RG WB WP RSC 



S: 3516 

G:i 

043514 P:100000 


(r)RUN :1 (p)PURST:0 (F2,F4)FCLK 


RBU:003514 

WBU: i 

003514 P2:l 


(s)STEP:0 



B:000000 


CADR:003516 

(n)INST:1 

PALM:[*] 


X:000000 

Y: 

177776 U:177777 


(a)SA : 0 


00 

A: 17777 6 

15 

BANK:05 

36 

TIME1:124044 

53 OPT Y:000001 

01 

Q:003517 

16 

RELINT: 

37 

TIME3:020101 

54 TRKR X:100000 

02 

Z:003517 

17 

INHINT: 

40 

TIME4:037770 

55 TRKR Y:100000 

03 

LP:000000 

20 

CYR:177776 

41 

UPLINK:100000 

56 TRKR Z:100000 

04 

IN0:0O0034 

21 

SR:100006 

42 

OUTCR1:100000 


05 

INI:000000 

22 

CYL:077657 

43 

OUTCR2:100000 

CF: [ ] :KR [ ] :! 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 


07 

IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [ ] M: [00] 

10 

OUTO: 

25 

BRUPT:103514 

46 

PIPA Z:100000 

V: [21] N: [01] 

11 

OUT1:000200 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: [ 123 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2 : [ +88888 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3:[ 50 ] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 



Start a monitor program 
to continuously display 
elapsed time from the CM 
clock 

<VERB> <1> < 6> <NOUN> <3> 
<6> < ENTER> 


AGC4 SIMULATOR 1.16 - 

TP: TP11 F17:0 Fl3:0 F10:2 SCL:165130 

STA:0 STB:0 BRl:0 BR2:0 SNI:0 CI:1 LOOPCTR:0 

RPCELL:00000 INH1:0 INH:1 UpCELL:000 DnCELL:000 SQ:02 INDEX NDX0 



CP:ST1 WE 








S: 0337 

G:' 

040300 P:100300 


(r)RUN :1 (p)PURST:0 (F2,F4)FCLK 


RBU:000000 

WBU: i 

000000 P2:1 


(s)STEP:0 




B:000300 


CADR:000337 


(n)INST:1 

PALM:[*] 



X:000000 

Y: i 

003425 U:003426 

(a)SA : 0 



00 

A: 000000 

15 

BANK:07 

36 

TIME1:126367 

53 OPT 

Y:000001 

01 

Q:003422 

16 

RELINT: 

37 

TIME3:137645 

54 TRKR 

X: 100000 

02 

Z:003426 

17 

INHINT: 

40 

TIME4:037775 

55 TRKR 

Y: 100000 

03 

LP:000003 

20 

CYR:155757 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

04 

IN0:000034 

21 

SR:100011 

42 

OUTCRl:100000 



05 

INI:000000 

22 

CYL:0777 65 

43 

OUTCR2:100000 

CF:[ ]: 

KR [ ] :1 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003515 

45 

PIPA Y:100000 

A: [ *] 

M: [00] 

10 

OUTO: 

25 

BRUPT:110307 

46 

PIPA Z:100000 

V: [16] 

N: [36] 

11 

OUTl:000201 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl:[ +00000 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2:[ +00001 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3:[ +05423 ] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 







Display component 1 of 
dataset at octal address 
50 

<VERB> <0> < 1> 

The key rel light flashes because 
the CM clock monitor program has 
been suspended. This is indicated 
by an asterisk in the KR display 
above the DSKY. 


AGC4 SIMULATOR 1.16 - 

TP: TP11 F17:2 F13:0 F10:2 SCL:247710 

STA:0 STB:2 BR1:0 BR2:0 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:1 UpCELL:000 DnCELL:000 SQ:15 TS STD2 

CP:NISQ 



S: 2774 

G: i 

032050 P:032050 


(r)RUN :1 (p)PURST:0 (F2,F4)FCLK: 


RBU:000000 

WBU: 1 

000000 P2:0 


(s)STEP:0 




B:032050 


CADR:002774 


(n)INST:1 

PALM:[*] 



X.-000000 

Y:' 

002774 U:002775 


(a)SA : 0 



00 

A:000111 

15 

BANK:06 

36 

TIME1:030020 

53 OPT 

Y:000001 

01 

Q:002765 

16 

RELINT: 

37 

TIME3:037641 

54 TRKR 

X:100000 

02 

Z:002775 

17 

INHINT: 

40 

TIME4:137771 

55 TRKR 

Y:100000 

03 

LP:000000 

20 

CYR:155757 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

04 

IN0:000001 

21 

SR:100011 

42 

OUTCR1:100000 



05 

INI:000000 

22 

CYL:077765 

43 

OUTCR2:100000 

CF:[ *]: 

KR [ ] : ] 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [ *] 

M:[00] 

10 

OUTO: 

25 

BRUPT:103514 

46 

PIPA Z:100000 

V:[01] 

N:[36] 

11 

OUT1:000221 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl:[ +00000 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2:[ +00001 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3:[ +05762 ] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 




<NOUN> <0> <1> < ENTER> 

Verb/noun display flashes: waiting 
for address. 


AGC4 SIMULATOR 1.16 - 

TP: TP11 F17:0 F13:0 F10:2 SCL:125100 

STA:0 STB:1 BR1:0 BR2:1 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCS1 

CP:NISQ RG WB RSC 



S: 3516 

G: 1 

043514 P:103514 


(r)RUN :1 (p)PURST:0 (F2 

!, F4) FCLK: 


RBU:003514 

WBU: 1 

003514 P2:1 


(s)STEP:0 




B:177777 


CADR:003516 

(n)INST:1 

PALM: [*] 



X:000000 

Y:: 

177776 U:177777 


(a)SA : 0 



00 

A:000000 

15 

BANK:06 

36 

TIME1:131747 

53 OPT 

Y:000001 

01 

Q:003517 

16 

RELINT: 

37 

TIME3:037731 

54 TRKR 

X:100000 

02 

Z:003517 

17 

INHINT: 

40 

TIME4:137772 

55 TRKR 

Y:100000 

03 

LP:000000 

20 

CYR:155757 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

04 

IN0:000034 

21 

SR:100000 

42 

OUTCR1:100000 



05 

INI:000000 

22 

CYL:077765 

43 

OUTCR2:100000 

CF:[ *]: 

KR [ ] : 1 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [ ] 

M: [00] 

10 

OUTO: 

25 

BRUPT:103514 

46 

PIPA Z: 100000 

V: [01] 

N: [01] * 

11 

OUT1:000220 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: [ +00000 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2:[ +00001 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3: [ 

] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 




<5> <0> < ENTER> 

Octal word from address 50 is 
displayed in Rl. 


Lfciiup . L.X. C 

AGC4 SIMULATOR 1.16 - 

TP: TP7 F17:0 F13:2 F10:0 SCL:070374 

STA:0 STB:2 BRl:0 BR2:0 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:1 UpCELL:000 DnCELL:000 SQ:03 XCH STD2 

CP:RG WB WP RSC 



S: 3425 

G: 

360337 P:100000 


(r)RUN :1 (p)PURST:0 (F2,F4)FCLK 


RBU:020337 

WBU: 

320337 P2:0 


(s)STEP:0 




B:000000 


CADR:003425 


(n)INST:1 

PALM:[*] 



X:000000 

Y: 

303425 U:003426 

(a)SA : 0 



00 

A: 000000 

15 

BANK:06 

36 

TIME1:033130 

53 OPT 

Y:000001 

01 

Q: 003422 

16 

RELINT: 

37 

TIME3:037644 

54 TRKR 

X:100000 

02 

Z:003426 

17 

INHINT: 

40 

TIME4:137774 

55 TRKR 

Y: 100000 

03 

LP:000000 

20 

CYR:177776 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

04 

IN0:000034 

21 

SR:100005 

42 

OUTCR1:100000 



05 

INI:000000 

22 

CYL:1002 4 6 

43 

OUTCR2:100000 

CF:[ *] 

:KR [ ]: 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [ *] 

M: [00] 

10 

OUTO: 

25 

BRUPT:103514 

46 

PIPA Z:100000 

V: [01] 

N: [01] 

11 

OUT1:000221 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl: [ 

00123 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2:[ +00001 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3: [ 

50 ] 

14 

OUT4:000000 

35 

TIME2:100000 

52 

OPT X:100000 








Increment the address 

<NOUN> <1> <5> < ENTER> 

Octal word from address 51 is 
displayed in Rl, address in R3. 


AGC4 SIMULATOR 1.16 - 

TP: TP7 F17:2 F13:2 F10:2 SCL:233304 

STA:0 STB:0 BR1:0 BR2:1 SNI:0 CI:1 LOOPCTR:0 

RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:00 

CP:RG WB WP RSC 
S: 3514 G:050307 P:103514 

RBU:010307 WBU:010307 P2:1 


TC 


TC0 


B:003514 
X: 000000 


CADR:003514 
Y: 003514 U:003515 


(r) RUN :1 

(s) STEP:0 
(n)INST:1 
(a)SA : 0 


(p)PURST:0 (F2,F4)FCLK:0 
PALM:[*] 


00 A:000000 
01 Q:003517 
02 Z:003517 
03 LP:000000 
04 IN0:000034 
05 INI:000000 
06 IN2:000000 
07 IN3:000000 

10 OUT0: 

11 OUT1:000220 

12 OUT2:000000 

13 OUT3:000000 

14 OUT4:000000 


15 BANK:06 

16 RELINT: 

17 INHINT: 

20 CYR:077777 

21 SR:100005 

22 CYL:100000 

23 SL:000000 

24 ZRUPT:003517 

25 BRUPT:103514 

26 ARUPT:103517 

27 QRUPT:102040 

34 OVCTR:056046 

35 TIME2:000001 


36 TIMEl:100012 

37 TIME3:137771 

40 TIME4:1377 66 

41 UPLINK:100000 

42 OUTCR1:100000 

43 OUTCR2:100000 

44 PIPA X:100000 

45 PIPA Y:100000 

46 PIPA Z:100000 

47 CDU X:100000 

50 CDU Y:100123 

51 CDU Z:100000 

52 OPT X:100000 


53 OPT Y:000001 

54 TRKR X:100000 

55 TRKR Y:100000 

56 TRKR Z : 100000 

CF: [ *] :KR [ ]: PA 

A:[ 1 M:[00] 

V:[01] N:[15] 

Rl:[ 00000 ] 

R2:[ +00001 ] 

R3:[ 00051 ] 


< ENTER> 

Octal word from address 52 is 
displayed in Rl, address in R3. 


AGC4 SIMULATOR 1.16 - 

TP: TP3 F17:0 F13:0 F10:2 SCL:025640 

STA:0 STB:0 BRl:0 BR2:1 SNI:0 CI:0 

RPCELL:00000 INHl:0 INH:0 UpCELL:000 DnCELL: 
CP:WG WGn 

S: 0307 G: 050307 P-.110307 {r) RUN :1 

RBU:000000 WBU:000000 P2:l (s)STEP:0 

B:010307 CADR:000307 (n)INST:l 

X:000000 Y:003515 U:003515 (a)SA :0 


LOOPCTR:0 

000 SQ:01 CCS CCS0 

(p)PURST:0 (F2,F4)FCLK:0 
PALM:[*] 


00 A:000000 
01 Q:003517 
02 Z:003515 
03 LP:000000 
04 IN0:000034 
05 INI:000000 
06 IN2:000000 
07 IN3:000000 

10 OUTO: 

11 OUT1:000220 

12 OUT2:000000 

13 OUT3:000000 

14 OUT4:000000 


15 BANK:06 

16 RELINT: 

17 INHINT: 

20 CYR:077777 

21 SR:100005 

22 CYL:100000 

23 SL:000000 

24 ZRUPT:003517 

25 BRUPT:103514 

26 ARUPT:103517 

27 QRUPT:102040 

34 OVCTR:056046 

35 TIME2:000001 


36 TIMEl:100707 

37 TIME3:037762 

40 TIME4:037773 

41 UPLINK:100000 

42 OUTCR1:100000 

43 OUTCR2:100000 

44 PIPA X:100000 

45 PIPA Y:100000 

46 PIPA Z:100000 

47 CDU X:100000 

50 CDU Y:100123 

51 CDU Z:100000 

52 OPT X:100000 


53 OPT Y:000001 

54 TRKR X:100000 

55 TRKR Y:100000 

56 TRKR Z:100000 

CF:[ *]:KR [ ]:PA 

A:[ ] M:[00] 

V: [01] N:[15] 

Rl:[ 00000 ] 

R2:[ +00001 ] 

R3:[ 00052 ] 


Resume the CM clock 
monitor program 

<KEY REL> 

Verb 16, noun 36 reappears, along 
with the clock display. Notice that 
the KR light (asterisk) goes out. 


AGC4 SIMULATOR 1.16 - 

TP: TP11 F17:2 F13:2 F10:0 SCL:356540 

STA:0 STB:2 BRl:0 BR2:0 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:0 UpCELL:000 DnCELL:000 SQ:17 MASK STD2 

CP-.NISQ 



S: 7172 

G: 010000 P:010000 


(r)RUN :1 (p)PURST:0 (F2 

!,F4)FCLK:0 


RBU:000000 

WBU:0 0 0 0 0 0 P2:0 


(s)STEP:0 




B:010000 


CADR:013172 


(n)INST:1 

PALM:[*] 



X:000000 

Y:007172 U:007173 


(a)SA : 0 



00 

A: 000001 

15 

BANK:05 

36 

TIMEl:102263 

53 OPT 

Y:000001 

01 

Q:000002 

16 

RELINT: 

37 

TIME3:137706 

54 TRKR 

X:100000 

02 

Z:007173 

17 

INHINT: 

40 

TIME4:137777 

55 TRKR 

Y: 100000 

03 

LP:140002 

20 

CYR:177767 

41 

UPLINK:100000 

56 TRKR 

z-.iooooo 

04 

IN0:000031 

21 

SR:100001 

42 

OUTCR1:100000 



05 

INI:000000 

22 

CYL:077765 

43 

OUTCR2:100000 

CF: [ ] : 

KR [ ]:PA 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003564 

45 

PIPA Y:100000 

A: [ *] 

M:[00] 

10 

OUTO: 

25 

BRUPT:120576 

46 

PIPA Z:100000 

V:[16] 

N:[36] 

11 

OUT1:000201 

26 

ARUPT:003561 

47 

CDU X:100000 

Rl:[ +00000 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2: [ +00002 ] 

13 

OUT3:000000 

34 

OVCTR:156042 

51 

CDU Z:100000 

R3 : [ +05466 ] 

14 

OUT4:000000 

35 

TIME2:000001 

52 

OPT X:100000 







Terminate the CM clock 
monitor program 

<VERB> <3> <4> <ENTER> 


AGC4 SIMULATOR 1.16 - 

TP: TP11 F17:2 F13:0 F10:2 SCL:341604 

STA:0 STB:0 BR1:0 BR2:1 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:00 TC TC0 


CP:NISQ 



S: 3514 

G: 1 

350307 P:110307 



RBU:000000 

WBU: 1 

300000 P2:1 



B:010307 


CADR:003514 



X: 000000 

Y: l 

303514 U:003515 


00 

A: 000000 

15 

BANK:0 6 

36 

01 

Q:003517 

16 

RELINT: 

37 

02 

Z: 003515 

17 

INHINT: 

40 

03 

LP:000000 

20 

CYR:155757 

41 

04 

IN0:000034 

21 

SR:100011 

42 

05 

INI:000000 

22 

CYL:077765 

43 

06 

IN2:000000 

23 

SL:000000 

44 

07 

IN3:000000 

24 

ZRUPT:003517 

45 

10 

OUTO: 

25 

BRUPT:103514 

46 

11 

OUTl:000200 

26 

ARUPT:103517 

47 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

14 

OUT4:000000 

35 

TIME2:000001 

52 


(r) RUN :1 (p)PURST:0 (F2,F4)FCLK:0 

(s) STEP:0 

(n)INST:1 PALM:[+] 

(a)SA : 0 


TIME1:004655 

53 

OPT 

Y:000001 

TIME3:011643 

54 

TRKR 

X:100000 

TIME4:037775 

55 

TRKR 

Y:100000 

UPLINK:100000 

56 

TRKR 

Z:100000 

OUTCR1:100000 

OUTCR2:100000 

CF: 

[ ] : 

:KR [ ] :: 

PIPA X:100000 

PIPA Y:100000 

A: 

: [ ] 

M:[00] 

PIPA Z:100000 

V: 

: [34] 

N:[36] 

CDU X:100000 

Rl: 

: [ +00000 ] 

CDU Y:100123 

R2: 

:[ +00002 ] 

CDU Z:100000 

R3: 

:[ +05813 ] 


OPT X:100000 


Change major mode to 
POO 

<VERB> <3> <7> <ENTER> 

Verb/noun display flashes: 
waiting for major mode. 


AGC4 SIMULATOR 1.16 - 

TP: TP7 F17:0 F13:0 F10:0 SCL:100220 

STA:0 STB:1 BR1:0 BR2:1 SNI:0 Cl:1 LOOPCTR:0 

RPCELL:00000 INH1:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCS1 

CP:RG WB WP RSC 



S: 3516 

G:' 

043514 P:100000 


(r) RUN : 1 (p) PURST: 0 (F2 

!, F4) FCLK: 


RBU:003514 

WBU:' 

003514 P2:1 


(s)STEP:0 




B:000000 


CADR:003516 

<n)INST:1 

PALM:[*] 



X: 000000 

Y: 

177776 U:177777 


(a)SA : 0 



00 

A: 177776 

15 

BANK:06 

36 

TIME1:006534 

53 OPT 

Y: 000001 

01 

Q:003517 

16 

RELINT: 

37 

TIME3:013522 

54 TRKR 

X: 100000 

02 

Z:003517 

17 

INHINT: 

40 

TIME4:037770 

55 TRKR 

Y:100000 

03 

LP:000000 

20 

CYR:155757 

41 

UPLINK:100000 

56 TRKR 

Z:100000 

04 

IN0:000034 

21 

SR:000004 

42 

OUTCR1:100000 



05 

INI:000000 

22 

CYL:0777 65 

43 

OUTCR2:100000 

CF:[ ]: 

KR [ ] : 1 

06 

IN2:000000 

23 

SL:000000 

44 

PIPA X:100000 



07 

IN3:000000 

24 

ZRUPT:003517 

45 

PIPA Y:100000 

A: [ ] 

M:[00] 

10 

OUTO: 

25 

BRUPT:103514 

46 

PIPA Z:100000 

V:[37] 

N: [ ] * 

11 

OUTl:000200 

26 

ARUPT:103517 

47 

CDU X:100000 

Rl:[ +00000 ] 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

CDU Y:100123 

R2:[ +00002 ] 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

CDU Z:100000 

R3:[ +05813 ] 

14 

OUT4:000000 

35 

TIME2:000001 

52 

OPT X:100000 




<0> <0> <ENTER> 


AGC4 SIMULATOR 1.16 - 

TP: TP11 F17:2 F13:2 F10:0 SCL:352620 

STA:0 STB:0 BR1:0 BR2:1 SNI:0 Cl:0 LOOPCTR:0 

RPCELL:00000 INHl:0 INH:0 UpCELL:000 DnCELL:000 SQ:01 CCS CCS0 



CP:RU STl 

WZ WE 




S: 0307 

G: 040000 P:100000 



RBU: 0 0 3 516 

WBU:003516 P2:1 



B:000000 


CADR:000307 



X:000001 

Y: 003515 U.-003516 

00 

A: 177776 

15 

BANK:11 

36 

01 

Q:003517 

16 

RELINT: 

37 

02 

Z:003515 

17 

INHINT: 

40 

03 

LP:000000 

20 

CYR:177764 

41 

04 

IN0:000034 

21 

SR:100012 

42 

05 

INI:000000 

22 

CYL:077765 

43 

06 

IN2:000000 

23 

SL:000000 

44 

07 

IN3:000000 

24 

ZRUPT:003517 

45 

10 

OUTO: 

25 

BRUPT:103514 

46 

11 

OUTl:000200 

26 

ARUPT:103517 

47 

12 

OUT2:000000 

27 

QRUPT:102040 

50 

13 

OUT3:000000 

34 

OVCTR:056046 

51 

14 

OUT4:000000 

35 

TIME2:000001 

52 


(r)RUN :1 (p)PURST:0 (F2 

!,F4)FCLK:0 

(s)STEP:0 

(n)INST:1 

PALM:[*] 


(a)SA : 0 

TIME1:010461 

53 OPT 

Y:000001 

TIME3:036721 

54 TRKR 

X:100000 

TIME4:137765 

55 TRKR 

Y: 100000 

UPLINK:100000 

56 TRKR 

Z:100000 

OUTCR1:100000 

OUTCR2:100000 

CF: [ ] : 

KR [ ]:PA 

PIPA X:100000 

PIPA Y:100000 

A: [ ] 

M:[00] 

PIPA Z:100000 

V: [ ] 

N: [ ] 

CDU X:100000 

Rl: [ 

] 

CDU Y:100123 

R2: [ 

] 

CDU Z:100000 

R3: [ 

] 


OPT X:100000 





The 20-or-so 
subsystems in the AGC 
are represented by C + + 
classes. There are some 
additional classes for 
registers and other 
things. 

I wanted a simulator 
architecture I could 
develop quickly that 
would easily and directly 
map to a hardware logic 
design. I went through 
16 versions of the 
simulator; they're 
discussed at the top of 
the AGCMain.cpp file 
which contains, 
unsurprisingly, the 
main(). 

If you want to run the 
simulator, you can 
compile it from the 

source code given here. To run it, you' 
AGC software (parts 8 and 9), and the 
code to generate these tables is given 



II also need the assembler (discussed in part 6), some 
EPROM tables in Motorola S-Record format. The C + + 
at the end of part 2. 


Here it is, warts and all... 
















































































Main (AGCMain.cpp) 
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* AGC4 (Apollo Guidance Computer) BLOCK I Simulator 

k 

* AUTHOR: John Pultorak 

* DATE: 07/29/02 

* FILE: AGCmain.cpp 

* 
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VERSIONS: 

1.0 - initial version. 

1.1 - fixed minor bugs; passed automated test and checkout programs: 

tecol.asm, teco2.asm, and teco3.asm to test basic instructions, 
extended instructions, and editing registers. 

1.2 - decomposed architecture into subsystems; fixed minor bug in DSKY 

keyboard logic (not tested in current teco*.asm suite). 

Implemented scaler pulses F17, F13, F10. Tied scaler output to 
involuntary counters and interrupts. Implemented counter overflow 
logic and tied it to interrupts and other counters. Added simple 
set/clear breakpoint. Fixed a bug in bank addressing. 

1.3 - fixed bugs in the DSKY. Added 14-bit effective address (CADR) to the 

simulator display output. Inhibited interrupts when the operator 
single-steps the AGC. 

1.4 - performance enhancements. Recoded the control pulse execution code 

for better simulator performance. Also changed the main loop so it 
polls the keyboard and system clock less often for better performance. 

1.5 - reversed the addresses of TIME1 and TIME2 so TIME2 occurs first. 

This is the way its done in Block II so that a common routine (READLO) 
can be used to read the double word for AGC time. 

1.6 - added indicators for 'CHECK FAIL' and 'KEY RELS'. Mapped them to OUT1, 

bits 5 and 7. Added a function to display the current location in 
the source code list file using the current CADR. 

1.7 - increased length of 'examine' function display. Any changes in DSKY now 

force the simulator to update the display immediately. Added a 'watch' 
function that looks for changes in a memory location and halts the 
AGC. Added the 'UPTL', 'COMP', and "PROG ALM" lights to the DSKY. 

1.8 - started reorganizing the simulator in preparation for H/W logic design. 

Eliminated slow (1Hz) clock capability. Removed BUS REQUEST feature. 
Eliminated SWRST switch. 

1.9 - eliminated the inclusive 'OR' of the output for all registers onto the 

R/W bus. The real AGC OR'ed all register output onto the bus; normally 
only one register was enabled at a time, but for some functions several 
were simultaneously enabled to take advantage of the 'OR' function (i.e.: 
for the MASK instruction). The updated logic will use tristate outputs 
to the bus except for the few places where the 'OR' function is actually 
needed. Moved the parity bit out of the G register into a 1-bit G15 
register. This was done for convenience because the parity bit in G 
is set independently from the rest of the register. 

1.10 - moved the G15 parity register from MBF to the PAR subsystem. Merged SBFWG 

and SBEWG pulses into a single SBWG pulse. Deleted the CLG pulse for MBF 
(not needed). Separated the ALU read pulses from all others so they can 
be executed last to implement the ALU inclusive OR functions. Implemented 
separate read and write busses, linked through the ALU. Implemented test 
parity (TP) signal in PAR; added parity alarm (PALM) FF to latch PARITY 
ALARM indicator in PAR. 

1.11 - consolidated address testing signals and moved them to ADR. Moved memory 

read/write functions from MBF to MEM. Merged EMM and FMM subsystems into 
MEM. Fixed a bad logic bug in writeMemory() that was causing the load of 
the fixed memory to overwrite array boundaries and clobber the CPM table. 
Added a memory bus (MEM_DATA_BUS, MEM_PARITY_BUS). 

1.12 - reduced the number of involuntary counters (CTR) from 20 to 8. Eliminated 

the SHINC subsequence. Changed the (CTR) sequence and priority registers into 
a single synchronization register clocked by WPCTR. Eliminated the fifth 
interrupt (UPRUPT; INT). Eliminated (OUT) the signal to read from output 
register 0 (the DSKY register), since it was not used and did not provide 
any useful function, anyway. Deleted register OUTO (OUT) which shadowed 
the addressed DSKY register and did not provide any useful function. 
Eliminated the unused logic that sets the parity bit in OUT2 for downlink 
telemetry. 

1.13 - reorganized the CPM control pulses into CPM-A, CPM-B, and CPM-C groups. 

Added the SDV1, SMP1, and SRSM3 control pulses to CPM-A to indicate when 
those subsequences are active; these signals are input to CPM-C. Moved the 
ISD function into CPM-A. Fixed a minor bug causing subsequence RSM3 to be 
displayed as RSM0. Added GENRST to clear most registers during STBY. 

1.14 - Moved CLISQ to TP1 to fix a problem in the hardware AGC. CLISQ was clearing 



* SNI on CLK2 at TP12, but the TPG was advancing on CLK1 which occurs after 

* CLK2, so the TPG state machine was not seeing SNI and was not moving to 

* the correct state. In this software simulation, everything advances on 

* the same pulse, so it wasn't a problem to clear SNI on TP12. Added a 

* switch to enable/disable the scaler. 

* 1.15 - Reenabled interrupts during stepping (by removing MON::RUN) signals from 

* CPM-A and CPM-C logic). Interrupts can be prevented by disabling the scaler. 

* Fixed a problem with INHINT1; it is supposed to prevent an interrupt 

* between instructions if there's an overflow. It was supposed to be cleared 

* on TP12 after SNI (after a new instruction), but was being cleared on TP12 

* after every subsequence. 

* 1.16 - Changed CPM-A to load and use EPROM tables for the control pulse matrix. The 

* EPROM tables are negative logic (0=asserted), but this simulator expects 

* positive logic, so each word is bit-flipped when the EPROM tables load 

* during simulator initialization. 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo Guidance 

* Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh Blair-Smith, R-393, 

* MIT Instrumentation Laboratory, 1963. 

* 

* PORTABILITY: 

* Compiled with Microsoft Visual C++ 6.0 standard edition. Should be fairly 

* portable, except for some Microsoft-specific I/O and timer calls in this file. 

* 

* NOTE: set tabs to 4 spaces to keep columns formatted correctly. 

•k 

'k'kk-k-k'k'k'k'k'k'k'k'kk-k-k'k'k'k-k'k'k'k'kkk-k'k'k'k'k'k'k'k'kk-k-k'k'kk'k-k'k'k'kkk-k'k'kk'k'k'k'k'kk-k-k'k'kk'k-k'k'k'kk-k-k'k'k'k-k'k'k 

*/ 

#include <conio.h> 


#include <iostream.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <conio.h> 
#include <stdio.h> 
#include <time.h> 
#include <ctype.h> 


#include "reg.h 


#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 


"TPG.h" 
"MON.h" 
"SCL.h" 
"SEQ.h" 
"INP.h" 
"OUT.h" 
"BUS.h" 
"DSP.h" 
"ADR.h" 
"PAR.h" 
"MBF.h" 
"MEM.h" 
"CTR.h" 
"INT.h" 
"KBD.h" 
"CRG.h" 
"ALU.h" 
"CPM.h" 
"ISD.h" 
"CLK.h" 


extern bool dskyChanged; 

// - 

// CONTROL LOGIC 

void genAGCStates() 

{ 

// 1) Decode the current instruction subsequence (glbl_subseq). 
// SEQ::glbl_subseq = CPM::instructionSubsequenceDecoder(); 

// 2) Build a list of control pulses for this state. 

CPM::controlPulseMatrix() ; 




// 3) Execute the control pulses for this state. In the real AGC, these occur 
// simultaneously. Since we can't achieve that here, we break it down into the 
// following steps: 

// Most operations involve data transfers—usually reading data from 
// a register onto a bus and then writing that data into another register. To 
// approximate this, we first iterate through all registers to perform 
// the 'read' operation—this transfers data from register to bus. 

// Then we again iterate through the registers to do 'write' operations, 

// which move data from the bus back into the register. 


BUS : 

: glbl_READ_BUS 

= 0; 

// 

clear 

bus; 

necessary because words 




// 

OR'ed 

onto 

the bus. 

MEM: 

: MEM_D ATA_BU S 

= 0; 

// 

clear 

data 

lines: memory bits 15-1 

MEM: 

:MEM_PARITY_BUS 

= 0; 

// 

parity line 

:: memory bit 16 


// Now start executing the pulses: 


// First, read register outputs onto the bus or anywhere else. 

int i; 

for(i=0; i<MAXPULSES && SEQ::glbl_cp[i] != NO_PULSE; i++) 

{ 

CLK::doexecR(SEQ::glbl_cp[i]); 

} 


// Next, execute ALU read pulses. See comments in ALU .C file 
ALU::glbl_BUS = 0; 

for(i=0; i<MAXPULSES && SEQ::glbl_cp[i] != NO_PULSE; i++) 

{ 

CLK::doexecR_ALU(SEQ::glbl_cp[i]); 

} 

BUS::glbl_WRITE_BUS = BUS::glbl_READ_BUS; // in case nothing is logically OR'ed below; 
for(i=0; i<MAXPULSES && SEQ::glbl_cp[i] != NO_PULSE; i++) 

{ 

CLK::doexecR_ALU_OR(SEQ::glbl_cp[i]); 

} 


} 


// Now, write the bus and any other signals into the register inputs. 

for(i=0; i<MAXPULSES && SEQ::glbl_cp[i] != NO_PULSE; i++) 

{ 

CLK::doexecW(SEQ::glbl_cp[i]); 

} 

// Always execute these pulses. 

SCL::doexecWP_SCL(); 

SCL::doexecWP_F17(); 

SCL::doexecWP_F13() ; 

SCL::doexecWP_F10() ; 

TPG::doexecWP_TPG(); 


//- 

// SIMULATION LOGIC 


// contains prefix for source filename; i.e.: the portion 
// of the filename before .obj or .1st 
char filename[80]; 


char* getCommand(char* prompt) 

{ 

static char s[80]; 
char* sp = s; 

cout << prompt; cout.flush(); 
char key; 

while((key = _getch()) != 13) 

{ 

if (isprint(key)) 

{ 

cout << key; cout.flush(); 
*sp = key; sp++; 

} 






cout.flush () ; 


else if(key == 8 && sp != s) 

{ 

cout << key << " " << key; 
sp—; 

} 

} 

*sp = '\0 ' ; 
return s; 


bool breakpointEnab = false; 
unsigned breakpoint = 0; 
void toggleBreakpoint() 

{ 

if(!breakpointEnab) 

{ 

char b[80]; 

strcpy(b, getCommand("Set breakpoint: — enter 14-bit CADR (octal): 
cout << endl; 

breakpoint = strtol(b, 0, 8) ; 
breakpointEnab = true; 

} 

else 

{ 

cout << "Clearing breakpoint." << endl; 
breakpointEnab = false; 



bool watchEnab = false; 
unsigned watchAddr = 0; 
unsigned oldWatchValue = 0; 
void toggleWatch() 

{ 

if(!watchEnab) 

{ 

char b[80] ; 

strcpy(b, getCommand("Set watch: — enter 14-bit CADR (octal): ")); 

cout << endl; 

watchAddr = strtol (b, 0, 8) ; 

watchEnab = true; 

oldWatchValue = MEM::readMemory(watchAddr); 

char buf [ 100]; 

sprintf(buf, "%06o: %06o", watchAddr, oldWatchValue); 

cout << buf << endl; 

} 

else 

{ 

cout << "Clearing watch." << endl; 

watchEnab = false; 



void incrCntr() 

{ 

char cntrname[80]; 

strcpy(cntrname, getCommand("Increment counter: — enter pcell (0-19): ")) 
cout << endl; 

int pc = atoi(cntrname) ; 

CTR::pcUp[pc] = 1; 


void decrCntr() 

{ 

char cntrname[80]; 

strcpy(cntrname, getCommand("Decrement counter: — enter pcell (0-19): ")) 
cout << endl; 

int pc = atoi(cntrname) ; 

CTR::pcDn[pc] = 1; 



void interrupt() 

{ 

char iname[80]; 

strcpy(iname, getCommand("Interrupt: — enter priority (1-5): ")); 
cout << endl; 

int i = atoi(iname) - 1; 

INT::rupt[i] = 1; 


#ifdef NOTDEF 

// Load AGC memory from the specified file object file 
void loadMemory() 

{ 

strcpy(filename, getCommand("Load Memory — enter filename: ")); 
cout << endl; 

// Add the .obj extension, 
char fname[80]; 
strcpy(fname, filename); 
strcat(fname, ".obj"); 


FILE* fp = fopen(fname, "r"); 
if ( !fp) 

{ 

perror("fopen failed:"); 

cout << "*** ERROR: Can't load memory for file: " << fname << endl; 
return; 

} 

unsigned addr; 
unsigned data; 

while(fscanf(fp, "%o %o", &addr, &data) != EOF) 

{ 

MEM::writeMemory(addr, data); 

} 

fclose(fp); 

cout << "Memory loaded." << endl; 

} 

#endif 


static int loadBuf[Oxffff+1]; // tempory buffer for assembling H,L memory data 

void loadEPROM(char* fileName, bool highBytes) 

{ 

cout << "Reading EPROM: " << fileName << endl; 

// Open the EPROM file. 

FILE* ifp = fopen(fileName, "r"); 
if(!ifp) 

{ 

perror("fopen failed for source file"); 
exit(-1); 

} 

const int addressBytes =3; // 24-bit address range 
const int sumCheckBytes = 1; 

char buf[4096]; // buffer holds a single S-Record 
while(fgets(buf,4096,ifp)) 

{ 

// process a record 
if(buf[0] != ’S') 

{ 

cout << "Error reading start of EPROM record for: " << fileName << endl 
exit (-1); 

} 


char tmp[256] ; 

strncpy(tmp, &buf[2], 2); tmp[2] = '\0'; 
int totalByteCount = strtol(tmp, 0, 16); 
int mySumCheck = totalByteCount & Oxff; 



strncpy(tmp, &buf[4], 6); tmp[addressBytes*2] = '\0 *; 
int address = strtol(tmp, 0, 16); 

mySumCheck = (mySumCheck + ((address & OxffOOOO) >> 16)) % 256; 

mySumCheck = (mySumCheck + ((address & OxOOffOO) >> 8)) % 256; 

mySumCheck = (mySumCheck + ((address & OxOOOOff) )) % 256; 

//cout << hex << totalByteCount « ", " << address << dec << endl; 

int dataBytes = totalByteCount - addressBytes - sumCheckBytes; 

int i = (addressBytes+2)*2; // index to 1st databyte char, 
for(int j=0; j<dataBytes; j++) 

{ 

// get a data byte 

strncpy(tmp, &buf[i], 2); tmp[2] = '\0 1 ; 
int data = strtol(tmp, 0, 16); 

//cout << hex << data << dec << endl; 
mySumCheck = (mySumCheck + data) % 256; 

if(highBytes) 

{ 

loadBuf[address] = loadBuf[address] | ((data << 8) & 

} 

else 

{ 

loadBuf[address] = loadBuf[address] | (data & Oxff); 

} 

address++; 

i+=2; // bump to next databyte char 

} 

strncpy(tmp, &buf[i], 2); tmp[2] = f \0'; 
int sumCheck = strtol(tmp, 0, 16); 

if(sumCheck != ((~mySumCheck) & Oxff)) 

{ 

cout << "sumCheck failed; file: " << fileName 
<< ", address: " << hex << address 

<< ", sumCheck: " << sumCheck << ", mySumCheck: " << 
<< dec << endl; 
exit (-1); 

} 


} 

fclose(ifp); 

cout << "Memory loaded." << endl; 


// Load AGC memory from the specified EPROM files 
void loadMemory() 

{ 

strcpy(filename, getCommand("Load Memory — enter filename: ")); 
cout << endl; 

char fname[80]; 

// Add the _H.hex extension, 
strcpy(fname, filename); 
strcat(fname, "_H.hex"); 

loadEPROM(fname, true); 


// Add the _L.hex extension, 
strcpy(fname, filename); 
strcat(fname, "_L.hex"); 

loadEPROM(fname, false); 

//******************************************************************* 
// EPROM is now in loadBuf; move it to AGC memory. 

// AGC fixed memory only uses NUMFBANK banks, 
for(int address=1024; address < 1024*(NUMFBANK+1); address++) 

{ 


Oxff00); 


mySumCheck 


// Don't load address region 0-1023; that region is allocated 



// to eraseable memory. 

//cout << "loading CADR=" << hex << address << endl; 

MEM::writeMemory(address, loadBuf[address]); 

} 

//******************************************************************* 


// Write the entire contents of fixed and 
// eraseable memory to the specified file. 

// Does not write the registers 
void saveMemory(char* filename) 

{ 

FILE* fp = fopen(filename, "w"); 
if ( !fp) 

{ 

perror("*** ERROR: fopen failed:"); 
exit(-1) ; 

} 

char buf[100]; 

for(unsigned addr=020; addr<=031777; addr++) 

{ 

sprintf(buf, "%06o %06o\n", addr, MEM::readMemory(addr)) ; 
fputs(buf, fp); 

} 

fclose(fp); 

} 

void examineMemory() 

{ 

char theAddress[20] ; 

strcpy(theAddress, getCommand("Examine Memory — enter address (octal): ")); 
cout << endl; 

unsigned address = strtol(theAddress, 0, 8); 
char buf[100]; 

for(unsigned i=address; i<address+23; i++) 

{ 

sprintf(buf, "%06o: %06o", i, MEM::readMemory(i)); 

cout << buf << endl; 

} 

} 

// Returns true if time (s) elapsed since last time it returned true; does not block 
// search for "Time Management" 
bool checkElapsedTime(time_t s) 

{ 

if(!s) return true; 

static clock_t start = clock(); 
clock_t finish = clock(); 

double duration = (double)(finish - start) / CLOCKS_PER_SEC; 
if(duration >= s) 

{ 

start = finish; 
return true; 

} 

return false; 

} 

// Blocks until time (s) has elapsed, 
void delay(time_t s) 

{ 

if ( !s) return; 

clock_t start = clock (); 
clock_t finish = 0; 
double duration = 0; 

do 

{ 

finish = clock(); 

} 

while((duration = (double)(finish - start) / CLOCKS_PER_SEC) < s); 



void updateAGCDisplay() 

{ 

static bool displayTimeout = false; 
static int clockCounter = 0; 


if(checkElapsedTime(2)) displayTimeout = true; 
if(MON::FOLK) 

{ 

if(MON::RUN) 

{ 

// update every 2 seconds at the start of a new instruction 
if(displayTimeout || dskyChanged) 

{ 


clockCounter++; 

if ( 

(TPG::register_SG.read() == TP12 && 

SEQ::register_SNI.read() == 1) || 

(TPG::register_SG.read() == STBY) || 
clockCounter > 500 || 
dskyChanged) 

{ 

MON::displayAGC(); 
displayTimeout = false; 
clockCounter = 0; 
dskyChanged = false; 


else 

{ 


static bool displayOnce = false; 
if(TPG::register_SG.read() == WAIT) 
{ 

if(displayOnce == false) 

{ 


MON::displayAGC(); 
displayOnce = true; 
clockCounter = 0; 


else 

{ 

displayOnce = false; 


else 


MON::displayAGC(); // When the clock is manual or slow, always update. 


void showMenu() 

{ 

cout « "AGC4 EMULATOR MENU:" << endl; 

cout << " 'r' = RUN: toggle RUN/HALT switch upward to the RUN position." << endl; 


const int started 
const int colLen 


= 0; // columns are numbered 0-n 

=5; // number of chars in column 


const int maxLines 
const int noffset 


= 23; // # of total lines to display 

= 10; // # of lines prior to, and including, selected line 


const int maxLineLen = 79; 


void showSourceCode() 

{ 

// Add the .1st extension. 

char fname[80]; 

strcpy(fname, filename); 

strcat(fname, ".1st"); 


// Open the file containing the source code listing. 
FILE* fp = fopen(fname, "r"); 
if(!fp) 



{ 

perror("fopen failed:"); 

cout << "*** ERROR: Can't load source list file: " << fname << endl; 
return; 

} 

cout << endl; 

// Get the address of the source code line to display. 

// The address we want is the current effective address is the 
// S and bank registers, 
char CADR[colLen+1] ; 

sprintf(CADR, "%05o", ADR::getEffectiveAddress()); 

int op =0; // offset index 
long foffset[noffset]; 

for(int i=0; icnoffset; i++) foffset[i]=0; 

bool foundit = false; 
int lineCount = 0; 

char s[256]; 

char valString[20] ; 

char out[256] ; 

while(!feof(fp)) 

{ 

if ( !foundit) 

{ 

foffset[op] = ftell(fp); 
op = (op + 1) % noffset; 

} 


// Read a line of the source code list file. 
if(fgets(s, 256, fp)) 

{ 

// Get the address (CADR) from the line, 
strncpy(valString, s+startCol, colLen); 
valString[colLen] = '\0'; 

// 'foundit' is true after we have found the desired line, 
if(foundit) 

{ 

if(strcmp(valString,CADR) == 0) 
cout << ">"; 

else 

cout << " "; 

// truncate line so it fits in 80 col display 
strncpy(out, s, maxLineLen); 
out[maxLineLen] = '\0'; 
cout << out; 

lineCount++; 

if(lineCount >= maxLines) 
break; 

} 

else 

{ 

if(strcmp(valString, CADR) == 0) 

{ 

// Reposition the file pointer back several lines so 
// we can see the code that preceeds the desired 
// line, too. 
foundit = true; 
fseek(fp, foffset[op], 0); 


} 

} 

fclose(fp); 


void main(int argc, char* argv[]) 

{ 



CPM::readEPROM( "CPM1_8.hex", 
CPM::readEPROM( "CPM9_16.hex", 
CPM::readEPROM("CPM17_24.hex", 
CPM::readEPROM("CPM25_32.hex" , 
CPM::readEPROM("CPM33_4 0.hex" , 
CPM::readEPROM("CPM41_48.hex", 
CPM::readEPROM("CPM49_56.hex" , 


CPM: :EPROMl_8) ; 
CPM: :EPROM9_16) ; 
CPM: :EPROM17_24) ; 
CPM::EPROM25_32); 
CPM::EPROM33_40); 
CPM: :EPROM41_48) ; 
CPM: :EPROM4 9_56) ; 


bool singleClock = false; 

genAGCStates(); 

MON::displayAGO(); 

while (1) 

{ 

// NOTE: assumes that the display is always pointing to the start of 
// a new line at the top of this loop! 

// Clock the AGC, but between clocks, poll the keyboard 

// for front-panel input by the user. This uses a Microsoft function; 

// substitute some other non-blocking function to access the keyboard 
// if you're porting this to a different platform, 
cout << "> "; cout.flush(); // display prompt 

while ( !_kbhit() ) 

{ 

if(MON::FCLK || singleClock) 

{ 

// This is a performance enhancement. If the AGC is running, 
// don't check the keyboard or simulator display every 
// simulation cycle, because that slows the simulator 
// down too much, 
int genStateCntr = 100; 
do ( 

CLK::clkAGC(); 

singleClock = false; 


genAGCStates () ; 
genStateCntr--; 


// Needs more work. It doesn't always stop at the 
// right location and sometimes stops at the 
// instruction afterwards, too. 
if(breakpointEnab && 

breakpoint == ADR::getEffectiveAddress()) 

{ 


MON::RUN = 0; 


// Halt right after instr that changes a watched 
// memory location, 
if(watchEnab) 

{ 

unsigned newWatchValue = MEM::readMemory(watchAddr); 
if(newWatchValue != oldWatchValue) 
i 

MON::RUN = 0; 

} 

oldWatchValue = newWatchValue; 

} 


} while (MON::FOLK && MON::RUN && genStateCntr > 0); 
updateAGCDisplay() ; 


} 

// for convenience, clear the single step switch on TP1; in the 
// hardware AGC, this happens when the switch is released 
if(MON::STEP && TPG::register_SG.read() == TP1) MON::STEP = 0; 

} 

char key = _getch() ; 

// Keyboard controls for front-panel: 
switch(key) 





// AGC controls 
// simulator controls 


case 'q f : cout << "QUIT..." << endl; exit(0 
case ' m': showMenu(); break; 

case 'd': 

genAGCStates(); 

MON::displayAGC(); 
break; // update display 

case '1': loadMemory(); break; 
case ' e': examineMemory(); break; 

case ' f' : 

showSourceCode(); 
break; 

case '] ' : 

incrCntr(); 

//genAGCStates(); 

//displayAGC(EVERY_CYCLE) ; 
break; 

case ' [ ' : 

decrCntr(); 

//genAGCStates(); 

//displayAGC(EVERY_CYCLE); 
break; 

case 'i ' : 

interrupt (); 

//genAGCStates(); 

//displayAGC(EVERY_CYCLE) ; 
break; 

case 'z ' : 

//SCL::F17 = (SCL::F17 + 1) % 2; 
genAGCStates(); 

MON::displayAGC(); 
break; 

case 'x': 

//SCL::F13 = (SCL::F13 + 1) % 2; 
genAGCStates(); 

MON::displayAGC(); 
break; 

case 'c': 

MON::SCL_ENAB = (MON::SCL_ENAB + 1) 
genAGCStates(); 

MON::displayAGC(); 
break; 

case 'r': 

MON::RUN = (MON::RUN +1) % 2; 
genAGCStates(); 

if(!MON::FOLK) MON::displayAGC(); 
break; 

case 's': 

MON::STEP = (MON::STEP + 1) % 2; 
genAGCStates(); 

if(!MON::FOLK) MON::displayAGC(); 
break; 

case 'a': 

MON : : SA = (MON : : SA +1) % 2; 
genAGCStates(); 

MON::displayAGC(); 
break; 

case 'n': 

MON::INST = (MON::INST + 1) % 2; 
genAGCStates(); 



case 


case 


case 


case 


case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 


MON: : display AGO () ; 
break; 

P' : 

MON::PURST = (MON::PURST +1) % 2; 
genAGCStates() ; 

MON::displayAGO(); 
break; 

b' : 

toggleBreakpoint() ; 
break; 

Y' : 

toggleWatch() ; 
break; 


// Clear ALARM indicators 

PAR::CLR_PALM(); // Asynchronously clear PARITY FAIL 

MON::displayAGO(); 

break; 


O' 
1' 
2 ' 
3 ' 
4 ' 
5 ' 
6 ’ 
7 ' 
8' 
9 ' 
+' 


r 

•k • 

g' 

h' 

j' 


// DSKY: 

: KBD::keypress(KEYIN_0); break; 

: KBD::keypress(KEYIN_1); break; 

: KBD::keypress(KEYIN_2); break; 

: KBD::keypress(KEYIN_3); break; 

: KBD::keypress(KEYIN_4); break; 

: KBD::keypress(KEYIN_5); break; 

: KBD::keypress(KEYIN_6); break; 

: KBD::keypress(KEYIN_7); break; 

: KBD::keypress(KEYIN_8); break; 

: KBD::keypress(KEYIN_9); break; 

: KBD::keypress(KEYIN_PLUS); break; 
: KBD::keypress(KEYIN_MINUS); break 
: KBD::keypress(KEYIN_CLEAR); break 
: KBD::keypress(KEYIN_VERB); break; 
: KBD::keypress(KEYIN_NOUN); break; 
: KBD::keypress(KEYIN_KEY_RELEASE); 
: KBD::keypress(KEYIN_ERROR_RESET); 
: KBD::keypress(KEYIN_ENTER); break 


break; 

break; 


\0': // must be a function key 
key = _getch() ; 
switch(key) 

{ 

case 0x3b: // FI: single clock pulse (when system clock off) 
singleClock = true; break; 
case 0x3c: // F2: manual clock (FCLK=0) 

MON::FOLK = 0; genAGCStates(); MON::displayAGC(); break 
case 0x3e: // F4: fast clock (FCLK=1) 

MON::FOLK = 1; genAGCStates(); MON::displayAGC(); break 
default: cout << "function key: " << key << "=" 

<< hex << (int) key << dec << endl; 


break; 


//default: cout << "??" << endl; 

default: cout << key « "=" << hex << (int) key << dec << endl; 
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* ADR - MEMORY ADDRESS subsystem 

k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ADR.h 

■k 

* VERSIONS: 

k 

* DESCRIPTION: 

* Memory address for the Block 1 Apollo Guidance Computer prototype (AGC4). 

•k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef ADR_H 
#define ADR_H 


enum 


specialRegister { 
// Flip 


// octal addresses 
■Flop registers 


of 


A_ADDR =00, 

Q_ADDR =01, 

Z_ADDR =02, 

LP_ADDR =03, 

IN0_ADDR =04, 

IN1_ADDR =05, 

IN2_ADDR =06, 

IN3_ADDR =07, 

OUT0_ADDR =010, 

OUTl_ADDR =011, 

OUT2_ADDR =012, 

OUT3_ADDR =013, 

OUT 4_ADDR =014, 

BANK_ADDR =015, 

// No bits in these registers 
RELINT_ADDR =016, 

INHINT_ADDR =017, 

// In eraseable memory 
CYR_ADDR =020, 

SR_ADDR =021, 

CYL_ADDR =022, 

SL_ADDR =023, 

ZRUPT_ADDR =024, 

BRUPT_ADDR =025, 

ARUPT_ADDR =026, 

QRUPT_ADDR =027, 


special 


registers 


class regS : public reg 

{ 

public: 

regS() : reg(12, "%04o") ( } 

}; 


class regBNK : public reg 

{ 

public: 

regBNK() : reg(4, "%02o") { } 

}; 


class ADR 



friend class MON; 


{ 


friend class MEM; 

friend class CLK; 
friend class CPM; 

public: 

static void execWP_WS(); 
static void execRP_RBK(); 
static void execWP_WBK(); 

static bool GTR_17(); // for MBF, CPM 

static bool GTR_27(); // for PAR 

static bool EQU_16(); // for CPM 

static bool EQU_17(); // for CPM 

static bool EQU_25(); // for SEQ 

static bool GTR_1777(); // for CPM 

static unsigned getEffectiveAddress(); 

private: 

static regS register_S; // address register 
static regBNK register_BNK; // bank register 

static unsigned bankDecoder(); 

static unsigned conv_WBK[]; 

}; 

#endif 
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* ADR - MEMORY ADDRESS subsystem 

•k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ADR.cpp 

i k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#include "reg.h" 

#include "ADR.h" 

#include "SEQ.h" 

#include "BUS.h" 

regS ADR::register_S; // address register 
regBNK ADR::register_BNK; // bank register 

// transfer bits 14-11 from the bus into the 4-bit bank register 
unsigned ADR::conv_WBK[] = 

{ BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, BX, B14, B13, B12, Bll }; 


void ADR::execWP_WS() 

{ 

register_S.write(BUS::glbl_WRITE_BUS); 

} 

void ADR::execRP_RBK() 

{ 

BUS::glbl_READ_BUS = register_BNK.read() << 10; 

} 

void ADR::execWP_WBK() 

{ 

register_BNK.writeShift(BUS::glbl_WRITE_BUS, ADR::conv_WBK); 

} 


bool ADR::GTR_27() 

{ 

return (register_S.read() > 027); 

} 

bool ADR::GTR_17() 

{ 

// check: address is not a central register 
return (register_S.read() > 017); 

} 

bool ADR: : EQU_25 () 

{ 

return (register_S.read() == 025); 

} 

bool ADR: : EQU_17 () 

{ 

// check: instruction is INHINT (INDEX 017) 
return (register_S.read() == 017); 

} 

bool ADR: : EQU_16 () 

{ 

// check: instruction is RELINT (INDEX 016)) 
return (register_S.read() == 016); 

} 

bool ADR: :GTR_1777 () 

{ 

// check: address is fixed memory 



return (register_S.read() > 01777); 


unsigned ADR:ibankDecoder() 

{ 

// Memory is organized into 13 banks of IK words each. The banks are numbered 
// 0-12. Bank 0 is erasable memory; banks 1-12 are fixed (rope) memory. The 10 
// lower bits in the S register address memory inside a bank. The 2 upper bits 
// in the S register select the bank. If the 2 upper bits are both 1, the 4-bit 
// bank register is used to select the bank. 


// 

12 

11 

Bank 


// 

0 

0 

0 

erasable memory 

// 

0 

1 

1 

fixed-fixed 1 memory 

// 

1 

0 

2 

fixed-fixed 2 memory 

// 

1 

1 

3-12 

fixed-switchable memory (bank register selects bank) 


unsigned bank = ADR::register_S.readField(12, 11) ; 
if(bank == 3) 

{ 

// fixed-switchable 

if(register_BNK.read() <= 03) // defaults to 6000 - 7777 
return 03; 

else 

return register_BNK.read(); // 10000 - 31777 


return bank; 


// erasable or fixed-fixed 


unsigned ADR::getEffectiveAddress() 

{ 

// Return the 14-bit address selected by lower 10 bits of the S register (IK) 
// and the bank decoder (which selects the IK bank) 
unsigned lowAddress = ADR::register_S.readField(10,1); 

if(ADR::bankDecoder() == 0) 
return lowAddress; 

unsigned highAddress = ADR::bankDecoder() << 10; 
return highAddress | lowAddress; 
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* ALU - ARITHMETIC UNIT subsystem 

k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ALU.h 

■k 

* VERSIONS: 

k 

* DESCRIPTION: 

* Arithmetic Unit for the Block 1 Apollo Guidance Computer prototype (AGC4). 

•k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef ALU_H 
#define ALU_H 

#include "reg.h" 


class regB : 

/ 

public reg 


i 

public: 

regB ( 

}; 

) : reg(16, 

"%06o" 

class regCI : 
/ 

public reg 


i 

public: 

regCI 

}; 

() : reg (1, 

"%01o" 

class regX : 

/ 

public reg 


i 

public: 

regX ( 

}; 

) : reg(16, 

"%06o" 

class regY : 

/ 

public reg 


i 

public: 

regY ( 

}; 

) : reg(16, 

"%06o" 

class regU : 

/ 

public reg 


i 

public: 

regU ( 

) : reg(16, 

"%06o" 


virtual unsigned read () ; 

}; 


class ALU 
{ 

public: 

static 


unsigned glbl_BUS; // mixes the RC and RU together for MASK 


// 

// 

// 

// 

// 

// 

// 

// 

// 

// 


In the hardware AGC, all read pulses are enabled simultaneously 
by CLK1. This simulator has to do the pulses one-at-a-time, so 
they are executed in the following sequence to mimic the hardware: 


1) all read pulses involving subsystems other than ALU are executed. 

These read pulses output to the glbl_READ_BUS. Only 0 or 1 
of these pulses should be active at any time (never 2 or more), 


2) next, the read pulses for the ALU are executed. The ALU is treated 

differently because it is the only subsystem where several read 



// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 3) 


pulses can be active simultaneously. In the original AGC, these 
pulses 'inclusive OR' their output to the glbl_READ_BUS, so the 
simulator has be implemented to execute all read pulses other than 
the ALU reads first, so the ALU will have the bus data it needs 
in order to do the inclusive OR. 

In the recreated AGC hardware design, the ALU is also the subsystem 
that links the glbl_READ_BUS to the glbl_WRITE_BUS. 

The recreated ALU hardware design checks whether anything is being 
written to the glbl_READ_BUS by the other subsystems. If not, it 
outputs zeroes to the glbl_READ_BUS for input to the inclusive OR 
operation. 

It then transfers data on the glbl_READ_BUS to the glbl_WRITE_BUS 
using an inclusive OR with data generated by other ALU read pulses. 
The AGC sequencer uses this operation to set certain data lines. 

finally, all write pulses are executed. 


static void 
static void 
static void 


execRP_ALU_RB(); 
execRP_ALU_RC(); 
execRP_ALU_RU(); 


static void 
static void 
static void 
static void 
static void 
static void 
static void 
static void 


execRP_ALU_OR_RBl4(); 
execRP_ALU_OR_Rl(); 
execRP_ALU_OR_RlC(); 
execRP_ALU_0R_R2(); 
execRP_ALU_OR_R22(); 
execRP_ALU_0R_R2 4(); 
execRP_ALU_0R_R2 0 00() ; 
exec RP_ALU_0 R_R S B(); 


static void execWP_GENRST(); 
static void execWP_WB(); 


static void execWP_CI () ; 
static void execWP_WY () ; 


static void execWP_WX(); 
static void execWP_WYx() ; 


static 

static 

static 

static 

static 


regB register_B; // next instruction 

regCI register_CI; // ALU carry-in flip flop 

regX register_X; // ALU X register 

regY register_Y; // ALU Y register 

regU register_U; // ALU sum 


#endif 
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* ALU - ARITHMETIC UNIT subsystem 


AUTHOR: 
DATE: 
FILE : 


John Pultorak 

9/22/01 

ALU.cpp 


NOTES: see header file. 




#include 

"ALU.h" 




#include 

"SEQ.h" 




#include 

"BUS.h" 




regB ALU: 

:register_B; 

// 

next 

instruction 

regCI ALU 

::register_C] 

; 

// ALU carry-in fl 

regX ALU: 

:register_X; 

// 

ALU 

X register 

regY ALU: 

:register_Y; 

// 

ALU 

Y register 

regU ALU: 

:register_U; 

// 

ALU 

sum 

unsigned 

ALU::glbl_BUS 

= 

0; 



■k 


~k ~k 


//**^********************************^************************ 

void ALU::execRP_ALU_RB() 

{ 

BUS::glbl_READ_BUS = register_B.read(); 

} 


// Performs an inclusive OR or register U and register C; 

// in the MASK instruction, the RC and RU control pulses 
// are activated simultaneously. This causes both to be 
// gated onto the AGC bus which performs the logical OR. 
void ALU::execRP_ALU_RC() 

{ 

ALU::glbl_BUS |= register_B.outmask() & (~register_B.read()); 
BUS::glbl_READ_BUS = ALU::glbl_BUS; 

} 

// Performs an inclusive OR or register U and register C; 

// in the MASK instruction, the RC and RU control pulses 
// are activated simultaneously. This causes both to be 
// gated onto the AGC bus which performs the logical OR. 
void ALU::execRP_ALU_RU() 

{ 

ALU::glbl_BUS |= register_U.read(); 

BUS::glbl_READ_BUS = ALU::glbl_BUS; 

} 




//************************************************************ 
// This is the interface between the read and write busses 

void ALU::execRP_ALU_OR_RB14() 

{ 

BUS::glbl_WRITE_BUS |= 0020000 I BUS::glbl_READ_BUS; 

} 


void ALU::execRP_ALU_OR_Rl() 

{ 




BUS::glbl_WRITE_BUS |= 0000001 I BUS::glbl_READ_BUS; 

} 

void ALU::execRP_ALU_OR_RlC() 

{ 

BUS::glbl_WRITE_BUS |= 0177776 I BUS::glbl_READ_BUS; 

} 

void ALU::execRP_ALU_OR_R2() 

{ 

BUS::glbl_WRITE_BUS |= 0000002 | BUS::glbl_READ_BUS; 

} 

void ALU::execRP_ALU_OR_RSB() 

{ 

BUS::glbl_WRITE_BUS |= 0100000 I BUS::glbl_READ_BUS; 

} 

void ALU::execRP_ALU_OR_R22() 

{ 

BUS::glbl_WRITE_BUS |= 0000022 | BUS::glbl_READ_BUS; 

} 

void ALU::execRP_ALU_OR_R24() 

{ 

BUS::glbl_WRITE_BUS |= 0000024 | BUS::glbl_READ_BUS; 

} 

void ALU::execRP_ALU_OR_R2000() 

{ 

BUS::glbl_WRITE_BUS |= 0002000 I BUS::glbl_READ_BUS; // TC GOPROG instruction 

} 

//************************************************************ 


void ALU::execWP_GENRST() 

{ 

} 


void ALU::execWP_CI() 

{ 

register_CI.writeField(1, 1, 1) ; 

} 


void ALU::execWP_WX() 

{ 

register_X.write(BUS::glbl_WRITE_BUS); 

} 


void ALU::execWP_WB() 

{ 

register_B.write(BUS::glbl_WRITE_BUS); 

} 


void ALU::execWP_WYx() 

{ 

register_Y.write(BUS::glbl_WRITE_BUS); 

} 

void ALU::execWP_WY() 

{ 

if(!SEQ::isAsserted(Cl)) register_CI.writeField(1,1,0); 
register_X.write(0); 

register_Y.write(BUS::glbl_WRITE_BUS); 

} 



unsigned regU::read() 

{ 

unsigned carry = 

(outmask()+1) & (ALU::register_X.read() + ALU::register_Y.read()); 


carry 

if(carry || ALU::register_CI.read()) 
carry = 1; 

else 

carry = 0; 

return outmask() & (ALU::register_X.read() + ALU::register_Y.read() + carry); 


// end-around 



BUS (BUS.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* BUS - READ/WRITE BUS subsystem 

■k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: BUS.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* RW Bus for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef BUS_H 
#define BUS_H 

// BUS LINE DESIGNATIONS 

// Specify the assignment of bus lines to the inputs of a register (for a 'write' 

// operation into a register). Each 'conv_' array specifies the inputs into a 
// single register. The index into the array corresponds to the bit position in 
// the register, where the first parameter (index=0) is bit 16 of the register (msb) 

// and the last parameter (index=15) is register bit 1 (lsb). The value of 
// the parameter identifies the bus line assigned to that register bit. 'BX' 

// means 'don't care'; i.e.: leave that register bit alone. 

enum { D0 = 17, // force bit to zero 

SGM=15, // sign bit in memory 

SG=16, // sign (S2; one's compliment) 

US=15, // uncorrected sign (SI; overflow), except in register G 

B14=14, B13=13, B12=12, Bll=ll, B10=10, B9=9, B8=8, 

B7=7, B6=6, B5=5, B4=4, B3=3, B2=2, Bl=l, 

BX=0 // ignore 

}; 

enum ovfState { NO_OVF, POS_OVF, NEG_OVF }; 

class BUS 

{ 

public: 

static unsigned glbl_READ_BUS; // read/write bus for xfer between central regs 
static unsigned glbl_WRITE_BUS; // read/write bus for xfer between central regs 

friend class INT; 
friend class CTR; 

private: 

static ovfState testOverflow(unsigned bus); 

}; 


#endif 
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* BUS - READ/WRITE BUS subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: BUS.cpp 

•k 

* NOTES: see header file. 

* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 


#include "BUS 

.h" 


unsigned BUS: 

: glbl_READ_BUS = C 

); 

unsigned BUS: 

: glbl_WRITE_BUS = 

0; 

ovfState BUS: 

:testOverflow(unsigned bus) 

i 

if ( (bus & 0100000) && ! 

(bus & 0040000)) 


return NEG_OVF; 

// negative overflow 

else if (! (bus & 0100000 

) && (bus & 0040000)) 


return POS_OVF; 

// positive overflow 

else 

return NO_OVF; 
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* CLK - CLOCK subsystem 

■k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CLK.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Clock for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef CLK_H 
#define CLK_H 

#include "reg.h" 


// define pointer-to-function type 
typedef void (*EXECTYPE)(); 


class CLK 


public: 

static 

void 

static 

void 

static 

void 

static 

void 

static 

void 


static reg* 

}; 


doexecR(int pulse); 
doexecR_ALU(int pulse); 
doexecR_ALU_OR(int pulse); 
doexecW(int pulse); 

clkAGC () ; 


registerList[]; 


#endif 
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* CLK - CLOCK subsystem 

:k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CLK.cpp 

•k 

* NOTES: see header file. 

k 






k k k k 


k k k 


k k 


k / 


#include "CLK.h 
#include "INP.h 
#include "OUT.h 
#include "MBF.h 
#include "ADR.h 
#include "SEQ.h 
#include "ALU.h 
#include "CRG.h 
#include "CTR.h 
#include "INT.h 
#include "PAR.h 
#include "TPG.h 
#include "SCL.h 
#include "MEM.h 


// A container for all registers. This is kept so we can iterate through 
// all registers to execute the control pulses. For simulation purposes 
// only; this has no counterpart in the hardware AGC. 
reg* CLK::registerList[] = // registers are in no particular sequence 
{ 


&INP::register_IN0, &INP::register_INl, &INP::register_IN2, &INP::register_IN3, 

&OUT::register_OUTl, &OUT::register_OUT2, 

&OUT::register_OUT3, &OUT::register_OUT4, 

&MBF::register_G, &PAR::register_G15, &ADR::register_S, &ADR::register_BNK, 

&SEQ::register_SQ, &ALU::register_B, 

&CRG::register_Q, &CRG::register_Z, &CRG::register_LP, &CRG::register_A, &ALU::register_X, 
&ALU::register_Y, &ALU::register_U, 

&SEQ::register_STA, &SEQ::register_STB, &SEQ::register_SNI, 

&SEQ::register_LOOPCTR, &ALU::register_CI, &SEQ::register_BRl , &SEQ::register_BR2, 

&CTR::register_UpCELL, &CTR::register_DnCELL, 

&INT::register_RPCELL, &INT::register_INHINTl, &INT::register_INHINT, 

&PAR::register_P, &PAR::register_P2, &PAR::register_PALM, 

&TPG::register_SG, 

&SCL::register_SCL, 

&SCL::register_F17, &SCL::register_F13, &SCL::register_F10, 

0 // zero is end-of-list flag 


void 

{ 


CLK::clkAGC() 

// Now that all the inputs are set up, 
// can change state in accordance with 
for(int i=0; registerList[i]; i++) 

{ 

registerList[i]->clk() ; 

} 


clock the registers so the outputs 
the inputs. 


void 

void 

execR_NOPULSE() 
execR_RA0() 

{ } 

{ CRG: 

: execRP_RA0 () ; 

void 

execR_RAl() 

{ CRG: 

: execRP_RAl () ; 

void 

execR_RA2() 

{ CRG: 

: execRP_RA2 () ; 

void 

execR_RA3() 

{ CRG: 

: execRP_RA3 () ; 

void 

execR_RA4() 

{ INP: 

: execRP_RA4 () ; 

void 

execR_RA5() 

{ INP: 

: execRP_RA5 () ; 

void 

execR_RA6() 

{ INP: 

: execRP_RA6 () ; 





void 

execR_RA7() 

{ INP: 

: execRP_RA7(); } 

void 

execR_RAl1() 

{ OUT: 

:execRP_RAll(); } 

void 

execR_RA12() 

{ OUT: 

:execRP_RA12(); } 

void 

execR_RA13() 

{ OUT: 

:execRP_RA13(); } 

void 

execR_RA14() 

{ OUT: 

:execRP_RA14(); } 

void 

execR_RA() 

{ CRG: 

: execRP_RA(); } 

void 

execR_RBK() 

{ ADR: 

:execRP_RBK(); } 

void 

execR_RG() 

{ MBF: 

:execRP_RG () ; } 

void 

execR_RLP() 

{ CRG: 

:execRP_RLP(); } 

void 

execR_RQ() 

{ CRG: 

: execRP_RQ () ; } 

void 

execR_RRPA() 

{ INT: 

:execRP_RRPA(); } 

void 

execR_RSCT() 

{ CTR: 

:execRP_RSCT(); } 

void 

execR_RZ() 

{ CRG: 

: execRP_RZ(); } 

void 

execR_SBWG() 

{ MEM: 

: execRP_SBWG(); } 

void 

execR_WE() 

{ MBF: 

: execRP_WE(); PAR::execRP_ 

void 

exec R_AL U_RB() 

{ ALU: 

: execRP_ALU_RB() ; } 

void 

exec R_AL U_RC() 

{ ALU: 

: execRP_ALU_RC(); } 

void 

exec R_AL U_RU() 

{ ALU: 

: execRP_ALU_RU(); } 

void 

execR_ALU_OR_RSB () 

{ ALU: 

: e x e cRP _A L U_0 R_RS B() ; } 

void 

exec R_AL U_0 R_R1() 

{ ALU: 

: e x e cRP _AL U_0 R_R1() ; } 

void 

exec R_AL U_0 R_R 1C () 

{ ALU: 

: e x e cRP _AL U_0 R_R1C() ; } 

void 

execR_ALU_0R_R2() 

{ ALU: 

: execRP_ALU_OR_R2() ; } 

void 

execR_ALU_0R_R2 2 () 

{ ALU: 

: execRP_ALU_OR_R2 2() ; } 

void 

execR_ALU_0R_R2 4 () 

{ ALU: 

: execRP_ALU_OR_R24() ; } 

void 

execR_ALU_0R_R20 00() 

{ ALU: 

: exe cRP_ALU_OR_R2 0 0 0() ; } 

void 

exec R_AL U_0 R_RB14() 

{ ALU: 

: execRP_ALU_OR_RB14(); } 


EXECTYPE execR[] = 

{ 


execR_ 

_NOPULSE, 

// 

NO_PULSE, 



execR_ 

_NOPULSE, 

// 

Cl, 

// 

Carry 

in 

execR_ 

_NOPULSE, 

// 

CLG, 

// 

Clear 

G 

execR_ 

_NOPULSE, 

// 

CLCTR, 

// 

Clear 

loop counter** 

execR_ 

_NOPULSE, 

// 

CTR, 

// 

Loop 

counter 

execR_ 

_NOPULSE, 

// 

GP, 

// 

Generate Parity 

execR_ 

_NOPULSE, 

// 

KRPT, 

// 

Knock 

down Rupt priority 

execR_ 

_NOPULSE, 

// 

NISQ, 

// 

New instruction to the SQ register 

execR_ 

JR A, 

// 

RA, 

// 

Read 

A 

execR_ 

_NOPULSE, 

// 

RB, 

// 

Read 

B 

execR_ 

_NOPULSE, 

// 

RBI 4, 

// 

Read 

bit 14 

execR_ 

_NOPULSE, 

// 

RC, 

// 

Read 

C 

execR_ 

JRG, 

// 

RG, 

// 

Read 

G 

execR_ 

_RLP, 

// 

RLP, 

// 

Read 

LP 

execR_ 

_NOPULSE, 

// 

RP2, 

// 

Read 

parity 2 

execR_ 

_RQ, 

// 

RQ, 

// 

Read 

Q 

execR_ 

_RRPA, 

// 

RRPA, 

// 

Read 

RUPT address 

execR_ 

_NOPULSE, 

// 

RSB, 

// 

Read 

sign bit 

execR_ 

_RSCT, 

// 

RSCT, 

// 

Read 

selected counter address 

execR_ 

_NOPULSE, 

// 

RU, 

// 

Read 

sum 

execR. 

_RZ, 

// 

RZ, 

// 

Read 

Z 

execR. 

JSfOPULSE, 

// 

Rl, 

// 

Read 

1 

execR_ 

_NOPULSE, 

// 

R1C, 

// 

Read 

1 complimented 

execR_ 

_NOPULSE, 

// 

R2, 

// 

Read 

2 

execR_ 

_NOPULSE, 

// 

R22, 

// 

Read 

22 

execR_ 

_NOPULSE, 

// 

R2 4, 

// 

Read 

24 

execR. 

_NOPULSE, 

// 

ST1, 

// 

Stage 

1 

execR. 

_NOPULSE, 

// 

ST2, 

// 

Stage 

2 

execR. 

_NOPULSE, 

// 

TMZ, 

// 

Test 

for minus zero 

execR. 

JSfOPULSE, 

// 

TOV, 

// 

Test 

for overflow 

execR. 

JSfOPULSE, 

// 

TP, 

// 

Test 

parity 

execR. 

JSfOPULSE, 

// 

TRSM, 

// 

Test 

for resume 

execR. 

_NOPULSE, 

// 

TSGN, 

// 

Test 

sign 

execR. 

JSfOPULSE, 

// 

TSGN2, 

// 

Test 

sign 2 

execR. 

JSfOPULSE, 

// 

WA, 

// 

Write 

A 

execR. 

_NOPULSE, 

// 

WALP, 

// 

Write 

A and LP 

execR. 

JSfOPULSE, 

// 

WB, 

// 

Write 

B 

execR. 

JSfOPULSE, 

// 

WGx, 

// 

Write 

G (do not reset) 

execR. 

JSfOPULSE, 

// 

WLP, 

// 

Write 

LP 

execR. 

_NOPULSE, 

// 

wove. 

// 

Write 

overflow counter 

execR. 

JSfOPULSE, 

// 

WOVI, 

// 

Write 

overflow RUPT inhibit 

execR. 

JSfOPULSE, 

// 

WOVR, 

// 

Write 

overflow 

execR. 

JSfOPULSE, 

// 

WP, 

// 

Write 

P 



execR_ 

_NOPULSE, 

// 

WPx, 

// 

Write P (do not reset) 

execR_ 

_NOPULSE, 

// 

WP2, 

// 

Write P2 

execR_ 

_NOPULSE, 

// 

WQ, 

// 

Write Q 

execR. 

_NOPULSE, 

// 

WS, 

// 

Write S 

execR_ 

_NOPULSE, 

// 

W X, 

// 

Write X 

execR. 

_NOPULSE, 

// 

WY, 

// 

Write Y 

execR. 

_NOPULSE, 

// 

WYx, 

// 

Write Y (do not reset) 

execR_ 

_NOPULSE, 

// 

WZ, 

// 

Write Z 

execR_ 

_NOPULSE, 

// 

RSC, 

// 

Read special and central 

execR_ 

_NOPULSE, 

// 

WSC, 

// 

Write special and central 

execR. 

_NOPULSE, 

// 

WG, 

// 

Write G 

execR. 

_NOPULSE, 

// 

SDV1, 

// 

Subsequence DV1 is active 

execR. 

JSfOPULSE, 

// 

SMP1, 

// 

Subsequence MP1 is active 

execR. 

_NOPULSE, 

// 

SRSM3, 

// 

Subsequence RSM3 is active 

execR. 

_RA0, 

// 

RAO, 

// 

Read register at address 0 (A) 

execR. 

_RA1, 

// 

RA1, 

// 

Read register at address 1 (Q) 

execR. 

_RA2, 

// 

RA2, 

// 

Read register at address 2 (Z) 

execR. 

_RA3, 

// 

RA3, 

// 

Read register at address 3 (LP) 

execR. 

_RA4, 

// 

RA4, 

// 

Read register at address 4 

execR. 

_RA5, 

// 

RA5, 

// 

Read register at address 5 

execR. 

_RA6, 

// 

RA6, 

// 

Read register at address 6 

execR. 

_RA7, 

// 

RA7, 

// 

Read register at address 7 

execR. 

_NOPULSE, 

// 

RA10, 

// 

Read register at address 10 (octal) 

execR. 

_RA11, 

// 

RA11, 

// 

Read register at address 11 (octal) 

execR. 

_RA12, 

// 

RA12, 

// 

Read register at address 12 (octal) 

execR. 

JRA13, 

// 

RA13, 

// 

Read register at address 13 (octal) 

execR. 

_RA14, 

// 

RA14, 

// 

Read register at address 14 (octal) 

execR. 

_RBK, 

// 

RBK, 

// 

Read BNK 

execR. 

JSfOPULSE, 

// 

WAO, 

// 

Write register at address 0 (A) 

execR. 

_NOPULSE, 

// 

WA1, 

// 

Write register at address 1 (Q) 

execR. 

_NOPULSE, 

// 

WA2, 

// 

Write register at address 2 (Z) 

execR. 

_NOPULSE, 

// 

WA3, 

// 

Write register at address 3 (LP) 

execR. 

_NOPULSE, 

// 

WA10, 

// 

Write register at address 10 (octal) 

execR. 

_NOPULSE, 

// 

WA11, 

// 

Write register at address 11 (octal) 

execR. 

_NOPULSE, 

// 

WA12, 

// 

Write register at address 12 (octal) 

execR. 

_NOPULSE, 

// 

WA13, 

// 

Write register at address 13 (octal) 

execR. 

_NOPULSE, 

// 

WA14, 

// 

Write register at address 14 (octal) 

execR. 

_NOPULSE, 

// 

WBK, 

// 

Write BNK 

execR. 

JSfOPULSE, 

// 

WGn, 

// 

Write G (normal gates)** 

execR. 

JSfOPULSE, 

// 

W2 0, 

// 

Write into CYR 

execR. 

JSfOPULSE, 

// 

W21, 

// 

Write into SR 

execR. 

JSfOPULSE, 

// 

W22, 

// 

Write into CYL 

execR. 

_NOPULSE, 

// 

W23 

// 

Write into SL 

execR. 

JSfOPULSE, 

// 

GENRST, 

// 

General Reset** 

execR. 

JSfOPULSE, 

// 

CLINH, 

// 

Clear INHINT** 

execR. 

_NOPULSE, 

// 

CLINH1, 

// 

Clear INHINT1* * 

execR. 

JSfOPULSE, 

// 

CLSTA, 

// 

Clear state counter A (STA)** 

execR. 

JSfOPULSE, 

// 

CLSTB, 

// 

Clear state counter B (STB)** 

execR. 

_NOPULSE, 

// 

CLISQ, 

// 

Clear SNI** 

execR. 

JSfOPULSE, 

// 

CLRP, 

// 

Clear RPCELL** 

execR. 

JSfOPULSE, 

// 

INH, 

// 

Set INHINT** 

execR. 

JSfOPULSE, 

// 

RPT, 

// 

Read RUPT opcode ** 

execR. 

_SBWG, 

// 

SBWG, 

// 

Write G from memory 

execR. 

JSfOPULSE, 

// 

SETSTB, 

// 

Set the ST1 bit of STB 

execR. 

_WE, 

// 

WE, 

// 

Write E-MEM from G 

execR. 

JSfOPULSE, 

// 

WPCTR, 

// 

Write PCTR (latch priority counter sequence) 

execR. 

JSfOPULSE, 

// 

WSQ, 

// 

Write SQ 

execR. 

_NOPULSE, 

// 

WSTB, 

// 

Write stage counter B (STB)** 

execR. 

JSfOPULSE, 

// 

R2000, 

// 

Read 2000 ** 


}; // 99 

void CLK: : doexecR (int pulse) { execR[pulse] () ; } 


EXECTYPE execR_ALU[] = 

i 

execR_NOPULSE, // NO_PULSE, 

execR_NOPULSE, // Cl, // Carry in 

execR_NOPULSE, // CLG, // Clear G 



execR_ 

_NOPULSE, 

// 

CLCTR, 

// 

execR_ 

_NOPULSE, 

// 

CTR, 

// 

execR_ 

_NOPULSE, 

// 

GP, 

// 

execR. 

_NOPULSE, 

// 

KRPT, 

// 

execR_ 

_NOPULSE, 

// 

NISQ, 

// 

execR_ 

_NOPULSE, 

// 

RA, 

// 

execR. 

_ALU_RB, 

// 

RB, 

// 

execR_ 

JSfOPULSE, 

// 

RBI 4, 

// 

execR_ 

_ALU_RC, 

// 

RC, 

// 

execR_ 

_NOPULSE, 

// 

RG, 

// 

execR_ 

_NOPULSE, 

// 

RLP, 

// 

execR_ 

_NOPULSE, 

// 

RP2, 

// 

execR_ 

_NOPULSE, 

// 

RQ, 

// 

execR_ 

_NOPULSE, 

// 

RRPA, 

// 

execR_ 

JSfOPULSE, 

// 

RSB, 

// 

execR_ 

JSfOPULSE, 

// 

RSCT, 

// 

execR_ 

_ALU_RU, 

// 

RU, 

// 

execR. 

_NOPULSE, 

// 

RZ, 

// 

execR. 

JSfOPULSE, 

// 

Rl, 

// 

execR. 

JSfOPULSE, 

// 

R1C, 

// 

execR. 

_NOPULSE, 

// 

R2, 

// 

execR. 

JSfOPULSE, 

// 

R22, 

// 

execR. 

JSfOPULSE, 

// 

R24, 

// 

execR. 

JSfOPULSE, 

// 

ST1, 

// 

execR. 

_NOPULSE, 

// 

ST2, 

// 

execR. 

JSfOPULSE, 

// 

TMZ, 

// 

execR. 

JSfOPULSE, 

// 

TOV, 

// 

execR. 

JSfOPULSE, 

// 

TP, 

// 

execR. 

JSfOPULSE, 

// 

TRSM, 

// 

execR. 

JSfOPULSE, 

// 

TSGN, 

// 

execR. 

JSfOPULSE, 

// 

TSGN2, 

// 

execR. 

JSfOPULSE, 

// 

WA, 

// 

execR. 

_NOPULSE, 

// 

WALP, 

// 

execR. 

_NOPULSE, 

// 

WB, 

// 

execR. 

JSfOPULSE, 

// 

WGx, 

// 

execR. 

JSfOPULSE, 

// 

WLP, 

// 

execR. 

_NOPULSE, 

// 

wove. 

// 

execR. 

JSfOPULSE, 

// 

WOVI, 

// 

execR. 

JSfOPULSE, 

// 

WOVR, 

// 

execR. 

JSfOPULSE, 

// 

WP, 

// 

execR. 

_NOPULSE, 

// 

WPx, 

// 

execR. 

JSfOPULSE, 

// 

WP2, 

// 

execR. 

JSfOPULSE, 

// 

WQ, 

// 

execR. 

JSfOPULSE, 

// 

WS, 

// 

execR. 

JSfOPULSE, 

// 

W X, 

// 

execR. 

_NOPULSE, 

// 

WY, 

// 

execR. 

JSfOPULSE, 

// 

WYx, 

// 

execR. 

JSfOPULSE, 

// 

WZ, 

// 

execR. 

_NOPULSE, 

// 

RSC, 

// 

execR. 

JSfOPULSE, 

// 

WSC, 

// 

execR. 

JSfOPULSE, 

// 

WG, 

// 

execR. 

JSfOPULSE, 

// 

SDV1, 

// 

execR. 

JSfOPULSE, 

// 

SMP1, 

// 

execR. 

JSfOPULSE, 

// 

SRSM3, 

// 

execR. 

JSfOPULSE, 

// 

RAO, 

// 

execR. 

JSfOPULSE, 

// 

RA1, 

// 

execR. 

JSfOPULSE, 

// 

RA2, 

// 

execR. 

JSfOPULSE, 

// 

RA3, 

// 

execR. 

_NOPULSE, 

// 

RA4, 

// 

execR. 

JSfOPULSE, 

// 

RA5, 

// 

execR. 

JSfOPULSE, 

// 

RA6, 

// 

execR. 

JSfOPULSE, 

// 

RA7, 

// 

execR. 

_NOPULSE, 

// 

RA10, 

// 

execR. 

JSfOPULSE, 

// 

RA11, 

// 

execR. 

JSfOPULSE, 

// 

RA12, 

// 

execR. 

_NOPULSE, 

// 

RA13, 

// 

execR. 

JSfOPULSE, 

// 

RA14, 

// 

execR. 

JSfOPULSE, 

// 

RBK, 

// 

execR. 

JSfOPULSE, 

// 

WAO, 

// 

execR. 

_NOPULSE, 

// 

WA1, 

// 

execR. 

JSfOPULSE, 

// 

WA2, 

// 

execR. 

JSfOPULSE, 

// 

WA3, 

// 

execR. 

JSfOPULSE, 

// 

WA10, 

// 


Clear loop counter** 

Loop counter 

Generate Parity 

Knock down Rupt priority 

New instruction to the SQ register 

Read A 

Read B 

Read bit 14 

Read C 

Read G 

Read LP 

Read parity 2 

Read Q 

Read RUPT address 
Read sign bit 

Read selected counter address 
Read sum 
Read Z 
Read 1 

Read 1 complimented 

Read 2 

Read 22 

Read 24 

Stage 1 

Stage 2 

Test for minus zero 
Test for overflow 
Test parity 
Test for resume 
Test sign 
Test sign 2 
Write A 
Write A and LP 
Write B 

Write G (do not reset) 

Write LP 

Write overflow counter 
Write overflow RUPT inhibit 
Write overflow 
Write P 

Write P (do not reset) 

Write P2 
Write Q 
Write S 
Write X 
Write Y 

Write Y (do not reset) 

Write Z 

Read special and central 
Write special and central 
Write G 

Subsequence DV1 is active 
Subsequence MP1 is active 


Subsequence RSM3 

is active 


Read 

register 

at 

address 

0 

(A) 

Read 

register 

at 

address 

1 

(Q) 

Read 

register 

at 

address 

2 

(Z) 

Read 

register 

at 

address 

3 

(LP) 

Read 

register 

at 

address 

4 


Read 

register 

at 

address 

5 


Read 

register 

at 

address 

6 


Read 

register 

at 

address 

7 


Read 

register 

at 

address 

10 

(octal) 

Read 

register 

at 

address 

11 

(octal) 

Read 

register 

at 

address 

12 

(octal) 

Read 

register 

at 

address 

13 

(octal) 

Read 

register 

at 

address 

14 

(octal) 

Read 

BNK 






Write register at address 0 (A) 

Write register at address 1 (Q) 

Write register at address 2 (Z) 

Write register at address 3 (LP) 
Write register at address 10 (octal) 



execR_ 

_NOPULSE, 

// 

WA11, 

// 

Write 

register at address 11 (octal) 

execR_ 

_NOPULSE, 

// 

WA12, 

// 

Write 

register at address 12 (octal) 

execR_ 

_NOPULSE, 

// 

WA13, 

// 

Write 

register at address 13 (octal) 

execR_ 

_NOPULSE, 

// 

WA14, 

// 

Write 

register at address 14 (octal) 

execR_ 

_NOPULSE, 

// 

WBK, 

// 

Write 

BNK 

execR_ 

_NOPULSE, 

// 

WGn, 

// 

Write 

G (normal gates)** 

execR. 

JSfOPULSE, 

// 

W2 0, 

// 

Write 

into CYR 

execR_ 

_NOPULSE, 

// 

W21, 

// 

Write 

into SR 

execR_ 

_NOPULSE, 

// 

1/122 , 

// 

Write 

into CYL 

execR_ 

_NOPULSE, 

// 

W23 

// 

Write 

into SL 

execR_ 

_NOPULSE, 

// 

GENRST, 

// 

General Reset** 

execR_ 

_NOPULSE, 

// 

CLINH, 

// 

Clear 

INHINT** 

execR_ 

_NOPULSE, 

// 

CLINH1, 

// 

Clear 

INHINT1* * 

execR_ 

_NOPULSE, 

// 

CLSTA, 

// 

Clear 

state counter A (STA)** 

execR_ 

_NOPULSE, 

// 

CLSTB, 

// 

Clear 

state counter B (STB)** 

execR_ 

_NOPULSE, 

// 

CLISQ, 

// 

Clear 

SNI** 

execR_ 

_NOPULSE, 

// 

CLRP, 

// 

Clear 

RPCELL* * 

execR_ 

_NOPULSE, 

// 

INH, 

// 

Set INHINT** 

execR_ 

_NOPULSE, 

// 

RPT, 

// 

Read RUPT opcode ** 

execR_ 

_NOPULSE, 

// 

SBWG, 

// 

Write 

G from memory 

execR_ 

_NOPULSE, 

// 

SETSTB, 

// 

Set the ST1 bit of STB 

execR. 

_NOPULSE, 

// 

WE, 

// 

Write 

E-MEM from G 

execR_ 

_NOPULSE, 

// 

WPCTR, 

// 

Write 

PCTR (latch priority counter sequence) 

execR_ 

_NOPULSE, 

// 

WSQ, 

// 

Write 

SQ 

execR_ 

_NOPULSE, 

// 

WSTB, 

// 

Write 

stage counter B (STB)** 

execR_ 

_NOPULSE, 

// 

R2000, 

// 

Read 2000 ** 


void CLK::doexecR_ALU(int pulse) { execR_ALU[pulse](); } 


EXECTYPE execR_ALU_OR[] = 
{ 


execR_NOPULSE, 

// 

NO_PULSE, 


execR_NOPULSE, 

// 

Cl, 

// 

Carry in 

execR_NOPULSE, 

// 

CLG, 

// 

Clear G 

execR_NOPULSE, 

// 

CLCTR, 

// 

Clear loop counter** 

execR_NOPULSE, 

// 

CTR, 

// 

Loop counter 

execR_NOPULSE, 

// 

GP, 

// 

Generate Parity 

execR_NOPULSE, 

// 

KRPT, 

// 

Knock down Rupt priority 

execR_NOPULSE, 

// 

NISQ, 

// 

New instruction to the SQ register 

execR_NOPULSE, 

// 

RA, 

// 

Read A 

execR_NOPULSE, 

// 

RB, 

// 

Read B 

exec R_AL U_OR_RB14, 

// 

RBI 4, 

// 

Read bit 14 

execR_NOPULSE, 

// 

RC, 

// 

Read C 

execR_NOPULSE, 

// 

RG, 

// 

Read G 

execR_NOPULSE, 

// 

RLP, 

// 

Read LP 

execR_NOPULSE, 

// 

RP2, 

// 

Read parity 2 

execR_NOPULSE, 

// 

RQ, 

// 

Read Q 

execR_NOPULSE, 

// 

RRPA, 

// 

Read RUPT address 

exec R_AL U_OR_R S B, 

// 

RSB, 

// 

Read sign bit 

execR_NOPULSE, 

// 

RSCT, 

// 

Read selected counter address 

execR_NOPULSE, 

// 

RU, 

// 

Read sum 

execR_NOPULSE, 

// 

RZ, 

// 

Read Z 

exec R_AL U_OR_R1, 

// 

Rl, 

// 

Read 1 

exec R_AL U_OR_R1C, 

// 

R1C, 

// 

Read 1 complimented 

exec R_AL U_OR_R2, 

// 

R2, 

// 

Read 2 

exec R_AL U_OR_R2 2, 

// 

R22, 

// 

Read 22 

exec R_AL U_OR_R24, 

// 

R24, 

// 

Read 24 

execR_NOPULSE, 

// 

ST1, 

// 

Stage 1 

execR_NOPULSE, 

// 

ST2, 

// 

Stage 2 

execR_NOPULSE, 

// 

TMZ, 

// 

Test for minus zero 

execR_NOPULSE, 

// 

TOV, 

// 

Test for overflow 

execR_NOPULSE, 

// 

TP, 

// 

Test parity 

execR_NOPULSE, 

// 

TRSM, 

// 

Test for resume 

execR_NOPULSE, 

// 

TSGN, 

// 

Test sign 

execR_NOPULSE, 

// 

TSGN2, 

// 

Test sign 2 

execR_NOPULSE, 

// 

WA, 

// 

Write A 

execR_NOPULSE, 

// 

WALP, 

// 

Write A and LP 

execR_NOPULSE, 

// 

WB, 

// 

Write B 

execR_NOPULSE, 

// 

WGx, 

// 

Write G (do not reset) 

execR_NOPULSE, 

// 

WLP, 

// 

Write LP 



execR_NOPULSE, 

// 

wove. 

// 

execR_NOPULSE, 

// 

WOVI, 

// 

execR_NOPULSE, 

// 

WOVR, 

// 

execR_NOPULSE, 

// 

WP, 

// 

execR_NOPULSE, 

// 

WPx, 

// 

execR_NOPULSE, 

// 

WP2, 

// 

execR_NOPULSE, 

// 

WQ, 

// 

execR_NOPULSE, 

// 

WS, 

// 

execR_NOPULSE, 

// 

WX, 

// 

execR_NOPULSE, 

// 

WY, 

// 

execR_NOPULSE, 

// 

WYx, 

// 

execR_NOPULSE, 

// 

WZ, 

// 

execR_NOPULSE, 

// 

RSC, 

// 

execR_NOPULSE, 

// 

WSC, 

// 

execR_NOPULSE, 

// 

WG, 


execR_NOPULSE, 

// 

SDV1, 

// 

execR_NOPULSE, 

// 

SMP1, 

// 

execR_NOPULSE, 

// 

SRSM3, 

// 

execR_NOPULSE, 

// 

RAO, 

// 

execR_NOPULSE, 

// 

RA1, 

// 

execR_NOPULSE, 

// 

RA2, 

// 

execR_NOPULSE, 

// 

RA3, 

// 

execR_NOPULSE, 

// 

RA4, 

// 

execR_NOPULSE, 

// 

RA5, 

// 

execR_NOPULSE, 

// 

RA6, 

// 

execR_NOPULSE, 

// 

RA7, 

// 

execR_NOPULSE, 

// 

RA10, 

// 

execR_NOPULSE, 

// 

RA11, 

// 

execR_NOPULSE, 

// 

RA12, 

// 

execR_NOPULSE, 

// 

RA13, 

// 

execR_NOPULSE, 

// 

RA14, 

// 

execR_NOPULSE, 

// 

RBK, 

// 

execR_NOPULSE, 

// 

WA0, 

// 

execR_NOPULSE, 

// 

WA1, 

// 

execR_NOPULSE, 

// 

WA2, 

// 

execR_NOPULSE, 

// 

WA3, 

// 

execR_NOPULSE, 

// 

WA10, 

// 

execR_NOPULSE, 

// 

WA11, 

// 

execR_NOPULSE, 

// 

WA12, 

// 

execR_NOPULSE, 

// 

WA13, 

// 

execR_NOPULSE, 

// 

WA14, 

// 

execR_NOPULSE, 

// 

WBK, 

// 

execR_NOPULSE, 

// 

WGn, 

// 

execR_NOPULSE, 

// 

W2 0, 

// 

execR_NOPULSE, 

// 

W21, 

// 

execR_NOPULSE, 

// 

W22, 

// 

execR_NOPULSE, 

// 

W23 

// 

execR_NOPULSE, 

// 

GENRST, 

// 

execR_NOPULSE, 

// 

CLINH, 

// 

execR_NOPULSE, 

// 

CLINH1, 

// 

execR_NOPULSE, 

// 

CLSTA, 

// 

execR_NOPULSE, 

// 

CLSTB, 

// 

execR_NOPULSE, 

// 

CLISQ, 

// 

execR_NOPULSE, 

// 

CLRP, 

// 

execR_NOPULSE, 

// 

INH, 

// 

execR_NOPULSE, 

// 

RPT, 

// 

execR_NOPULSE, 

// 

SBWG, 

// 

execR_NOPULSE, 

// 

SETSTB, 

// 

execR_NOPULSE, 

// 

WE, 

// 

execR_NOPULSE, 

// 

WPCTR, 

// 

execR_NOPULSE, 

// 

WSQ, 

// 

execR_NOPULSE, 

// 

WSTB, 

// 

exec R_AL U_OR_R2000, 

// 

R2000, 

// 


Write overflow counter 
Write overflow RUPT inhibit 
Write overflow 
Write P 

Write P (do not reset) 

Write P2 
Write Q 
Write S 
Write X 
Write Y 

Write Y (do not reset) 

Write Z 

Read special and central 
Write special and central 
// Write G 


Subsequence DV1 is active 
Subsequence MP1 is active 
Subsequence RSM3 is active 


Read 

register 

at 

address 

0 

(A) 

Read 

register 

at 

address 

1 

(Q) 

Read 

register 

at 

address 

2 

(Z) 

Read 

register 

at 

address 

3 

(LP) 

Read 

register 

at 

address 

4 


Read 

register 

at 

address 

5 


Read 

register 

at 

address 

6 


Read 

register 

at 

address 

7 


Read 

register 

at 

address 

10 

(octal) 

Read 

register 

at 

address 

11 

(octal) 

Read 

register 

at 

address 

12 

(octal) 

Read 

register 

at 

address 

13 

(octal) 

Read 

register 

at 

address 

14 

(octal) 

Read 

BNK 






Write 

register 

at 

address 

0 

(A) 

Write 

register 

at 

address 

1 

(Q) 

Write 

register 

at 

address 

2 

(Z) 

Write 

register 

at 

address 

3 

(LP) 

Write 

register 

at 

address 

10 

(octal 

Write 

register 

at 

address 

11 

(octal 

Write 

register 

at 

address 

12 

(octal 

Write 

register 

at 

address 

13 

(octal 

Write 

register 

at 

address 

14 

(octal 

Write 

BNK 






Write G (normal gates)** 

Write into CYR 
Write into SR 
Write into CYL 
Write into SL 

General Reset** 

Clear INHINT** 

Clear INHINT1* * 

Clear state counter A (STA)** 

Clear state counter B (STB)** 

Clear SNI** 

Clear RPCELL** 

Set INHINT** 

Read RUPT opcode ** 

Write G from memory 
Set the ST1 bit of STB 
Write E-MEM from G 

Write PCTR (latch priority counter sequence) 
Write SQ 

Write stage counter B (STB)** 

Read 2000 ** 


void CLK::doexecR_ALU_OR(int pulse) { execR_ALU_OR[pulse] (); } 



void 

execW_NOPULSE () 

{ i 


void 

execW_CI( ) 

{ ALU: 

: execWP_CI () ; 

void 

execW_CLG () 

{ PAR: 

:execWP_CLG () ; 

void 

execW_CLINH () 

{ INT: 

:execWP_CLINH() ; 

void 

execW_CLINHl() 

{ INT: 

:execWP_CLINHl() ; 

void 

execW_CLISQ() 

{ SEQ: 

:execWP_CLISQ() ; 

void 

execW_CLCTR () 

{ SEQ: 

:execWP_CLCTR() ; 

void 

execW_CLRP () 

{ INT : 

: execWP_CLRP () ; 

void 

execW_CLSTA () 

{ SEQ: 

:execWP_CLSTA() ; 

void 

execW_CLSTB () 

{ SEQ: 

:execWP_CLSTB (); 

void 

execW_CTR() 

{ SEQ: 

: execWP_CTR (); 

void 

execW_GENRST () 

{ 

SEQ :: execWP_GENRST () 


MBF 

CRG 

PAR 

ALU 

CTR 

INT 

OUT 


: execWP_GENRST() 
: execWP_GENRST() 
: execWP_GENRST() 
: execWP_GENRST() 
: execWP_GENRST() 
: execWP_GENRST() 
: execWP_GENRST() 


void 

execW_GP() 

{ PAR: 

: execWP_GP () ; 

void 

execW_INH() 

{ INT: 

: execWP_INH () ; 

void 

execW_KRPT() 

{ INT: 

: execWP_KRPT () ; 

void 

execW_NISQ() 

{ SEQ: 

:execWP_NISQ (); 

void 

execW_RPT() 

{ INT: 

: execWP_RPT(); 

void 

execW_RP2() 

{ PAR: 

: execWP_RP2 () ; 

void 

execW_SBWG() 

{ MBF : 

:execWP_SBWG (); PAR 

void 

execW_SETSTB() 

{ SEQ: 

:execWP_SETSTB() ; 

void 

execW_STl() 

{ SEQ: 

: execWP_STl () ; 

void 

execW_ST2() 

{ SEQ: 

: execWP_ST2 () ; 

void 

execW_TMZ() 

{ SEQ: 

: execWP_TMZ () ; 

void 

execW_TOV() 

{ SEQ: 

: execWP_TOV () ; 

void 

execW_TP() 

{ PAR: 

: execWP_TP(); 

void 

execW_TRSM() 

{ SEQ: 

:execWP_TRSM(); 

void 

execW_TSGN() 

{ SEQ: 

:execWP_TSGN() ; 

void 

execW_TSGN2() 

{ SEQ: 

: execWP_TSGN2(); 

void 

execW_WA0() 

{ CRG: 

: execWP_WAO(); 

void 

execW_WAl() 

{ CRG: 

:execWP_WAl(); 

void 

execW_WA2() 

{ CRG: 

:execWP_WA2(); 

void 

execW_WA3() 

{ CRG: 

: execWP_WA3 () ; 

void 

execW_WA10() 

{ OUT: 

: execWP_WA10 () ; 

void 

execW_WAl1() 

{ OUT: 

: execWP_WAll(); 

void 

execW_WA12() 

{ OUT: 

: execWP_WA12(); 

void 

execW_WA13() 

{ OUT: 

: execWP_WA13(); 

void 

execW_WA14() 

{ OUT: 

:execWP_WA14(); 

void 

execW_WA() 

{ CRG: 

: execWP_WA(); 

void 

execW_WALP() 

{ CRG: 

: execWP_WALP(); 

void 

execW_WB() 

{ ALU: 

: execWP_WB () ; 

void 

execW_WBK() 

{ ADR: 

:execWP_WBK(); 

void 

execW_WE() 

{ MEM: 

: execWP_WE(); 

void 

execW_WGn() 

{ MBF : 

: execWP_WGn(); 

void 

execW_WGx() 

{ MBF : 

: execWP_WGx(); PAR: 

void 

execW_WLP() 

{ CRG: 

: execWP_WLP () ; 

void 

execW_WOVC() 

{ CTR: 

:execWP_WOVC(); 

void 

execW_WOVI() 

{ INT: 

: execWP_WOVI(); 

void 

execW_WOVR() 

{ CTR: 

: execWP_WOVR(); 

void 

execW_WP() 

{ PAR: 

: execWP_WP(); 

void 

execW_WPx() 

{ PAR: 

: execWP_WPx(); 

void 

execW_WP2() 

{ PAR: 

: execWP_WP2 () ; 

void 

execW_WPCTR() 

{ CTR: 

: execWP_WPCTR() ; 

void 

execW_WQ() 

{ CRG: 

: execWP_WQ(); 

void 

execW_WS() 

{ ADR: 

: execWP_WS () ; 

void 

execW_WSQ() 

{ SEQ: 

: execWP_WSQ () ; 

void 

execW_WSTB() 

{ SEQ: 

:execWP_WSTB(); 

void 

execW_WX() 

{ ALU: 

: execWP_WX () ; 

void 

execW_WY() 

{ ALU: 

: execWP_WY () ; 

void 

execW_WYx() 

{ ALU: 

: execWP_WYx () ; 

void 

execW_WZ() 

{ CRG: 

: execWP_WZ () ; 

void 

execW_W2 0() 

{ MBF : 

: execWP_W20 () ; 

void 

execW_W21() 

{ MBF : 

: execWP_W21 () ; 

void 

execW_W22() 

{ MBF : 

:execWP_W22 () ; 

void 

execW_W23() 

{ MBF : 

: execWP_W23 () ; 


_SBWG 


PAR::execWP_WGx() 





EXECTYPE execW[] = 

{ 


execW_ 

_NOPULSE, 

// 

NO_PULSE, 





execW_ 

_CI, 

// 

Cl, 

// 

Carry 

in 



execW_ 

_clg. 

// 

CLG, 

// 

Clear 

G 



execW_ 

_CLCTR, 

// 

CLCTR, 

// 

Clear 

loop counter** 



execW_ 

_CTR, 

// 

CTR, 

// 

Loop 

counter 



execW_ 

_GP, 

// 

GP, 

// 

Generate Parity 



execW_ 

_KRP T, 

// 

KRPT, 

// 

Knock 

down Rupt priority 



execW_ 

_NISQ, 

// 

NISQ, 

// 

New instruction to the SQ 

1 register 

execW_ 

_NOPULSE, 

// 

RA, 

// 

Read 

A 



execW_ 

_NOPULSE, 

// 

RB, 

// 

Read 

B 



execW_ 

_NOPULSE, 

// 

RBI 4, 

// 

Read 

bit 14 



execW_ 

_NOPULSE, 

// 

RC, 

// 

Read 

C 



execW_ 

JSfOPULSE, 

// 

RG, 

// 

Read 

G 



execW_ 

_NOPULSE, 

// 

RLP, 

// 

Read 

LP 



execW_ 

_RP2, 

// 

RP2, 

// 

Read 

parity 2 



execW_ 

_NOPULSE, 

// 

RQ, 

// 

Read 

Q 



execW_ 

_NOPULSE, 

// 

RRPA, 

// 

Read 

RUPT address 



execW_ 

_NOPULSE, 

// 

RSB, 

// 

Read 

sign bit 



execW_ 

_NOPULSE, 

// 

RSCT, 

// 

Read 

selected counter address 

execW_ 

_NOPULSE, 

// 

RU, 

// 

Read 

sum 



execW_ 

_NOPULSE, 

// 

RZ, 

// 

Read 

Z 



execW_ 

JSfOPULSE, 

// 

Rl, 

// 

Read 

1 



execW_ 

_NOPULSE, 

// 

R1C, 

// 

Read 

1 complimented 



execW_ 

_NOPULSE, 

// 

R2, 

// 

Read 

2 



execW_ 

_NOPULSE, 

// 

R22, 

// 

Read 

22 



execW_ 

_NOPULSE, 

// 

R2 4, 

// 

Read 

24 



execW_ 

_ST1, 

// 

ST1, 

// 

Stage 

1 



execW_ 

_ST2, 

// 

ST2, 

// 

Stage 

2 



execW_ 

_TMZ, 

// 

TMZ, 

// 

Test 

for minus zero 



execW_ 

_TOV, 

// 

TOV, 

// 

Test 

for overflow 



execW_ 

_TP, 

// 

TP, 

// 

Test 

parity 



execW_ 

_TRSM, 

// 

TRSM, 

// 

Test 

for resume 



execW_ 

_TSGN, 

// 

TSGN, 

// 

Test 

sign 



execW_ 

_T S GN 2, 

// 

TSGN2, 

// 

Test 

sign 2 



execW_ 

_WA, 

// 

WA, 

// 

Write 

A 



execW_ 

_WALP, 

// 

WALP, 

// 

Write 

A and LP 



execW_ 

_WB, 

// 

WB, 

// 

Write 

B 



execW_ 

_WGx, 

// 

WGx, 

// 

Write 

G (do not reset) 



execW_ 

_WLP, 

// 

WLP, 

// 

Write 

LP 



execW_ 

_WOVC, 

// 

wove. 

// 

Write 

overflow counter 



execW_ 

_WOVI, 

// 

WOVI, 

// 

Write 

overflow RUPT inhibit 


execW_ 

_WOVR, 

// 

WOVR, 

// 

Write 

overflow 



execW_ 

_WP, 

// 

WP, 

// 

Write 

P 



execW_ 

_WPx, 

// 

WPx, 

// 

Write 

P (do not reset) 



execW_ 

_WP2, 

// 

WP2, 

// 

Write 

P2 



execW_ 

_WQ, 

// 

WQ, 

// 

Write 

Q 



execW_ 

_WS, 

// 

WS, 

// 

Write 

S 



execW_ 

_W X, 

// 

W X, 

// 

Write 

X 



execW_ 

_WY, 

// 

WY, 

// 

Write 

Y 



execW_ 

_WYx, 

// 

WYx, 

// 

Write 

Y (do not reset) 



execW_ 

_WZ, 

// 

WZ, 

// 

Write 

Z 



execW_ 

_NOPULSE, 

// 

RSC, 

// 

Read 

special and central 



execW_ 

JSfOPULSE, 

// 

WSC, 

// 

Write 

special and central 



execW_ 

_NOPULSE, 

// 

WG, 

// 

Write 

G 



execR. 

_NOPULSE, 

// 

SDV1, 

// 

Subsequence DV1 is active 



execR. 

_NOPULSE, 

// 

SMP 1 , 

// 

Subsequence MP1 is active 



execR_ 

JSfOPULSE, 

// 

SRSM3, 

// 

Subsequence RSM3 is active 


execW_ 

JSfOPULSE, 

// 

RAO, 

// 

Read 

register at address 

0 

(A) 

execW_ 

JSfOPULSE, 

// 

RA1, 

// 

Read 

register at address 

1 

(Q) 

execW_ 

_NOPULSE, 

// 

RA2, 

// 

Read 

register at address 

2 

(Z) 

execW_ 

_NOPULSE, 

// 

RA3, 

// 

Read 

register at address 

3 

(LP) 

execW_ 

_NOPULSE, 

// 

RA4, 

// 

Read 

register at address 

4 


execW_ 

_NOPULSE, 

// 

RA5, 

// 

Read 

register at address 

5 


execW_ 

_NOPULSE, 

// 

RA6, 

// 

Read 

register at address 

6 


execW_ 

_NOPULSE, 

// 

RA7, 

// 

Read 

register at address 

7 


execW_ 

_NOPULSE, 

// 

RA10, 

// 

Read 

register at address 

10 

(octal) 

execW_ 

_NOPULSE, 

// 

RA11, 

// 

Read 

register at address 

11 

(octal) 

execW_ 

_NOPULSE, 

// 

RA12, 

// 

Read 

register at address 

12 

(octal) 

execW_ 

JSfOPULSE, 

// 

RA13, 

// 

Read 

register at address 

13 

(octal) 

execW_ 

_NOPULSE, 

// 

RA14, 

// 

Read 

register at address 

14 

(octal) 

execW_ 

_NOPULSE, 

// 

RBK, 

// 

Read 

BNK 





execW_ 

_WA0, 

// 

WAO, 

// 

Write 

register at address 

0 (A) 

execW_ 

_WA1, 

// 

WA1, 

// 

Write 

register at address 

1 (Q) 

execW_ 

_WA2, 

// 

WA2, 

// 

Write 

register at address 

2 (Z) 

execW_ 

_WA3, 

// 

WA3, 

// 

Write 

register at address 

3 (LP) 

execW_ 

_WA10, 

// 

WA10, 

// 

Write 

register at address 

10 (octal) 

execW_ 

_WA11, 

// 

WA11, 

// 

Write 

register at address 

11 (octal) 

execW_ 

_WA12, 

// 

WA12, 

// 

Write 

register at address 

12 (octal) 

execW_ 

_WA13, 

// 

WA13, 

// 

Write 

register at address 

13 (octal) 

execW_ 

_WA14, 

// 

WA14, 

// 

Write 

register at address 

14 (octal) 

execW_ 

_WBK, 

// 

WBK, 

// 

Write 

BNK 


execW_ 

_WGn, 

// 

WGn, 

// 

Write 

G (normal gates)** 


execW_ 

_W2 0, 

// 

W2 0 , 

// 

Write 

into CYR 


execW_ 

_W21, 

// 

W21, 

// 

Write 

into SR 


execW_ 

_W22, 

// 

W22, 

// 

Write 

into CYL 


execW_ 

_W2 3, 

// 

W23 

// 

Write 

into SL 


execW_ 

_GENRST, 

// 

GENRST, 

// 

General Reset** 


execW_ 

_CLINH, 

// 

CLINH, 

// 

Clear 

INHINT** 


execW_ 

_CLINH1, 

// 

CLINH1, 

// 

Clear 

INHINT1* * 


execW_ 

_CLSTA, 

// 

CLSTA, 

// 

Clear 

state counter A (STA)** 

execW_ 

_CLSTB, 

// 

CLSTB, 

// 

Clear 

state counter B (STB)** 

execW_ 

_CLISQ, 

// 

CLISQ, 

// 

Clear 

SNI** 


execW_ 

_CLRP, 

// 

CLRP, 

// 

Clear 

RPCELL* * 


execW_ 

_INH, 

// 

INH, 

// 

Set INHINT** 


execW_ 

_RPT, 

// 

RPT, 

// 

Read RUPT opcode ** 


execW_ 

_SBWG, 

// 

SBWG, 

// 

Write 

G from memory 


execW_ 

_SETSTB, 

// 

SETSTB, 

// 

Set the ST1 bit of STB 


execW_ 

_WE, 

// 

WE, 

// 

Write 

E-MEM from G 


execW_ 

_WPCTR, 

// 

WPCTR, 

// 

Write 

PCTR (latch priority 

' counter sequence) 

execW_ 

yssQ, 

// 

WSQ, 

// 

Write 

SQ 


execW_ 

_WSTB, 

// 

WSTB, 

// 

Write 

stage counter B (STB)** 

execW_ 

_NOPULSE, 

// 

R2000, 

// 

Read 2000 ** 



}; // 99 


void CLK: : doexecW (int pulse) { execW[pulse] () ; } 



CPM (CPM.h) 
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* CPM - CONTROL PULSE MATRIX subsystem 

■k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CPM.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Control Pulse Matrix for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef CPM_H 
#define CPM_H 


#include "TPG.h" 
#include "SEQ.h" 


class CPM 

{ 

public: 

static subseq instructionSubsequenceDecoder( 

int counter_subseq, int SQ_field, int STB_field); 

static char* subseqString[]; 

static void controlPulseMatrix(); 

static void readEPROM(char* fileName, int* eprom); 

static int EPROMl_8 [0x3fff+l]; 
static int EPROM9_16 [0x3fff+l]; 
static int EPROM17_24[0x3fff+1]; 
static int EPROM25_32[0x3fff+1]; 
static int EPROM33_40[0x3fff+1] ; 
static int EPROM41_48[0x3fff+1]; 
static int EPROM49_56[0x3fff+1]; 

private: 

// Clear the list of currently asserted control pulses, 
static void clearControlPulses(); 

// Assert the set of control pulses by adding them to the list of currently 

// active control signals. 

static void assert(cpType* pulse); 

// Assert a control pulse by adding it to the list of currently asserted 
// control pulses. 

static void assert(cpType pulse); 
static void get_CPM_A(int CPM_A_address); 
static void getControlPulses_EPROM(int address); 
static void checkEPROM(int inval, int lowbit); 

}; 


#endif 



CPM (CPM.cpp) 
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* CPM - CONTROL PULSE MATRIX subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CPM.cpp 

•k 

* NOTES: see header file. 

* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


*/ 


#include 

"CPM.h" 

#include 

"SEQ.h" 

#include 

"MON.h" 

#include 

"CTR.h" 

#include 

"INT.h" 

#include 

"ADR.h" 

#include 

<stdlib.h> 

char* CPM 

::subseqString 


"TCO", 

"CCSO", 

"CCS1", 

"NDXO", 

"NDX1", 

"RSM3", 

"XCHO", 

"CSO", 

"TSO", 

"ADO", 

"MASKO", 

"MPO", 

"MP1", 

"MP3", 

"DVO", 

"DV1", 

"SUO", 

"RUPT1", 

"RUPT3", 

"STD2", 
"PINCO", 
"MINCO", 
"SHINCO", 
"NO_SEQ" 

} ; 


subseq 

{ 


CPM::instructionSubsequenceDecoder( 
int counter_subseq, int SQ_field, int STB_field) 

// Combinational logic decodes instruction and the stage count 
// to get the instruction subsequence, 
static subseq decode[16][4] = ( 


TCO, 

RUPT1, 

STD2, 

RUPT3 } 

, // 

00 

CCSO, 

CCS1, 

NO_SEQ, 

NO_SEQ } 

, // 

01 

NDXO, 

NDX1 , 

NO_SEQ, 

RSM3 } 

, // 

02 

XCHO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

03 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

04 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

05 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

06 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

07 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

10 

MPO, 

MP1, 

NO_SEQ, 

MP3 } 

, // 

11 

DVO, 

DV1, 

STD2, 

NO_SEQ } 

, // 

12 

SUO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

13 

CSO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

14 

TSO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

15 

ADO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

16 



MASKO 


NO_SE Q 


STD2 


NO_SEQ } // 17 


} 


if(counter_subseq == PINCSEL) 
return PINCO; 

else if(counter_subseq == MINCSEL) 
return MINCO; 

else 


return decode[SQ_field][STB_field]; 


void 

{ 

} 


CPM::clearControlPulses() 

for(unsiqned i=0; i<MAXPULSES; i++) 
SEQ::glbl_cp[i] = NO_PULSE; 


void 

{ 


CPM::assert(cpType* pulse) 
int j=0; 

for(unsigned i=0; i<MAXPULSES && j<MAX_IPULSES 

{ 

if(SEQ::glbl_cp[i] == NO_PULSE) 

{ 

SEQ::glbl_cp[i] = pulse[j]; 
j++; 



&& pulse[j] 


! = NO_PULSE; i + +) 


void CPM::assert(cpType pulse) 

{ 

for(unsigned i=0; i<MAXPULSES; i++) 

{ 

if(SEQ::glbl_cp[i] == NO_PULSE) 

{ 

SEQ::glbl_cp[i] = pulse; 
break; 


} 


int 

int 

int 

int 

int 

int 

int 


CPM::EPROMl_8 []; 
CPM::EPROM9_16 []; 
CPM::EPROM17_24[]; 
CPM::EPROM25_32[]; 
CPM: :EPROM33_4 0[]; 
CPM: :EPROM41_4 8[]; 
CPM: :EPROM4 9_56[]; 


void CPM::readEPROM(char* fileName, int* eprom) 

{ 

cout << "Reading EPROM: " << fileName << endl; 


// Open the EPROM file. 

FILE* ifp = fopen(fileName, "r"); 
if('ifp) 

{ 

perror("fopen failed for source file"); 
exit(-1); 

} 


const int addressBytes =3; // 24-bit address range 
const int sumCheckBytes = 1; 

char buf[4096]; 

while(fgets(buf,4096,ifp)) 

{ 

// process a record 
if(buf[0] != ’S') 

{ 

cout << "Error reading start of EPROM record for: " << fileName << endl 
exit(-1); 






char tmp[256] ; 


strncpy(tmp, &buf[2], 2); tmp[2] = '\0'; 
int totalByteCount = strtol(tmp, 0, 16); 
int mySumCheck = totalByteCount & Oxff; 

strncpy(tmp, &buf[4], 6); tmp[addressBytes*2] = '\0'; 
int address = strtol(tmp, 0, 16); 

mySumCheck = (mySumCheck + ((address & OxffOOOO) >> 16)) % 256; 

mySumCheck = (mySumCheck + ((address & OxOOffOO) >> 8)) % 256; 

mySumCheck = (mySumCheck + ((address & OxOOOOff) )) % 256; 

//cout << hex << totalByteCount « ", " << address << dec << endl; 

int dataBytes = totalByteCount - addressBytes - sumCheckBytes; 
int i = (addressBytes+2)*2; // index to 1st databyte char, 
for(int j=0; j<dataBytes; j++) 

{ 

// get a data byte 

strncpy(tmp, &buf[i], 2); tmp[2] = '\0'; 
int data = strtol(tmp, 0, 16); 

//cout << hex << data << dec << endl; 
mySumCheck = (mySumCheck + data) % 256; 

// The H/W AGC needs negative logic in the EPROMS (0=asserted) 

// but this simulator needs positive logic, so we bit flip the word. 

//eprom[address] = data; 

eprom[address] = ((-data) & Oxff); 

address++; 

i+=2; // bump to next databyte char 

} 

strncpy(tmp, &buf[i], 2); tmp[2] = f \0 1 ; 
int sumCheck = strtol (tmp, 0, 16); 


address 
dec << endl; 


if(sumCheck != ((-mySumCheck) & Oxff)) 

{ 

cout << "sumCheck failed; file: " << fileName << ", address: " << hex << 

<< ", sumCheck: " << sumCheck << ", mySumCheck: " << mySumCheck « 
exit (-1); 

} 


} 

fclose(ifp); 


void CPM::checkEPROM(int inval, int lowbit) 

{ 

for(int mask=0xl; inval && mask !=0xl00; mask=mask<<l) 

{ 

if(inval & mask) 

assert((cpType) lowbit); 
lowbit++; 


} 


// perform the CPM-A EPROM function using the EPROM files 
void CPM::getControlPulses_EPROM(int address) 

{ 

checkEPROM(EPROMl_8 [address], 1); 
checkEPROM(EPROM9_l6 [address], 9); 
checkEPROM(EPROM17_24[address], 17) ; 
checkEPROM(EPROM25_32[address], 25) ; 
checkEPROM(EPROM33_4 0[address] , 33) ; 
checkEPROM(EPROM41_48[address], 41); 
checkEPROM(EPROM4 9_56[address], 49) ; 

} 


void CPM::get_CPM_A(int address) 



// Use the EPROM tables to get the CPM-A control pulses documented 
//in R-393. 

getControlPulses_EPROM(address) ; 

// Now add some additional control pulses implied, but not documented 
// in R-393. 

if(SEQ::register_LOOPCTR.read() == 6) 

{ 

assert(ST2); // STA <- 2 

assert(CLCTR); // CTR <- 0 

} 


//***************************************************************** 

// Now that the EPROM tables are used for CPM-A, this function is only 
// used to display the instruction subsequence in MON. 

SEQ::glbl_subseq = CPM::instructionSubsequenceDecoder( 

CTR::getSubseq(), SEQ::register_SQ.read(), SEQ::register_STB.read()); 

//***************************************************************** 

// These were in CPM-C, where the rest of the control signal assertions 
// related to their use still are, but were moved here because WB and RB 
// are part of the R-393 sequence tables. Check CPM-C to see how these 
// assertions fit in (the former use is commented out there). 
switch(TPG::register_SG.read()) 

{ 

case PWRON: 

assert(WB); // TC GOPROG copied to B (see CPM-C for related assertions) 
break; 


case 


TP 12 : 


if(SEQ::register_SNI.read() == 1) 

{ 

if ( ! INT: : IRQ () ) 

{ 

// Normal instruction 
assert(RB); 


// SQ <- B 


(see CPM-C for 


related assertions) 


break; 

default: ; 

} 


void CPM::controlPulseMatrix() 

{ 

// Combination logic decodes time pulse, subsequence, branch register, and 
// "select next instruction" latch to get control pulses associated with 
// those states. 

// Get rid of any old control pulses. 
clearControlPulses(); 


//******************************************************************************* 
// SUBSYSTEM A 

int SB2_field = 0; 
int SBl_field = 0; 

switch (CTR: :getSubseq () ) 

{ 

case PINCSEL: 

SB2_field =0; 

SBl_field = 1; 
break; 
case MINCSEL: 

SB2_field = 1; 

SBl_field = 0; 
break; 
default: 



SB2_field = 0; 
SBl_field = 0; 


int CPM_A_address = 0; 

CPM_A_address = 

(SB2_field « 13) | 

(SBl_field « 12) | 

(SEQ::register_SQ.read() << 8) | 

(SEQ::register_STB.read() << 6) | 

(TPG::register_SG.read() << 2) | 

(SEQ::register_BRl.read() << 1) | 

SEQ::register_BR2.read() ; 

// Construct address into CPM-A control pulse ROM: 
// Address bits (bit 1 is LSB) 


// 

1: 

register BR2 





// 

2 : 

register BR1 





// 

3-6: 

register SG (4) 





// 

7, 8 : 

register STB (2) 





// 

9-12 : 

register SQ (4) 





// 

13: 

STB_01 (from 

CTR: 

selects 

PINC, 

MINC, or none 

// 

14 : 

STB_02 (from 

CTR: 

selects 

P INC, 

MINC, or none 


get_CPM_A(CPM_A_address) ; 


//******************************************************************************* 

// SUBSYSTEM B 

// NOTE: WG, RSC, WSC are generated by SUBSYSTEM A. Those 3 signals are only used 
// by SUBSYSTEM B; not anywhere else. 

// CONSIDER MOVING TO ADR **********************8 

if(SEQ::isAsserted(WG)) 

{ 

switch(ADR::register_S.read()) 

{ 

case 020: assert(W20); break; 

case 021: assert(W21); break; 

case 022: assert(W22); break; 

case 023: assert(W23); break; 

default: if(ADR::GTR_17()) assert(WGn); // not a central register 

} 

} 

if(SEQ::isAsserted(RSC) ) 

{ 

switch(ADR::register_S.read()) 

{ 

case 00: assert(RAO); break; 

case 01: assert(RA1); break; 

case 02: assert(RA2); break; 

case 03: assert(RA3); break; 

case 04: assert(RA4); break; 

case 05: assert(RA5); break; 

case 06: assert(RA6); break; 

case 07: assert(RA7); break; 

case 010: assert(RA10); break; 

case 011: assert(RA11); break; 

case 012: assert(RA12); break; 

case 013: assert(RA13); break; 

case 014: assert(RA14); break; 

case 015: assert(RBK); break; 

default: break; // 016, 017 


if(SEQ::isAsserted(WSC) ) 

switch(ADR::register_S.read()) 

{ 

case 00: assert(WA0); break; 







case 01: assert(WA1); break; 

case 02: assert(WA2); break; 

case 03: assert(WA3); break; 

case 010: assert(WA10); break; 

case Oil: assert(WA11); break; 

case 012: assert(WA12); break; 

case 013: assert(WA13); break; 

case 014: assert(WA14); break; 

case 015: assert(WBK); break; 

default: break; // 016, 017 

} 

//******************************************************************************* 


//******************************************************************************* 

// SUBSYSTEM C 

switch(TPG::register_SG.read()) 

{ 

case STBY: 

assert(GENRST) ; 

// inhibit all alarms 
// init "SQ" complex 
// clear branch registers 

// stage registers are not cleared; should they be? 

// zeroes are already gated onto bus when no read pulses are asserted. 

// to zero synchronous-clocked registers, assert write pulses here. 

// Level-triggered registers are zeroed by GENRST anded with CLK2. 
break; 

case PWRON: 

assert(R2000); 

//assert(WB); // TC GOPROG copied to B (implemented in CPM-A) 
break; 

case TP1: 

// Moved this from TP12 to TP1 because CLISQ was getting cleared in the 
// hardware AGC before TPG was clocked; therefore TPG was not seeing the 
// SNI indication, 
assert(CLISQ); // SNI <- 0 

case TP5: 

// EMEM must be available in G register by TP6 

if ( ADR::GTR_17() && // not a central register 

!ADR::GTR_1777() && // not fixed memory 

!SEQ::isAsserted(SDV1) && // not a loop counter subseq 

!SEQ::isAsserted(SMP1)) 

{ 

assert(SBWG); 

} 

if( ADR::EQU_17() ) assert (INH); // INHINT (INDEX 017) 

if( ADR::EQU_16() ) assert (CLINH); // RELINT (INDEX 016) 
break; 


case TP6: 

// FMEM must be available in G register by TP7 
if ( ADR: :GTR_1777() 

memory 

!SEQ::isAsserted(SDV1) && 

!SEQ::isAsserted(SMP1)) 

{ 

assert(SBWG) ; 

} 

break; 


case TP11: 

// G register written to memory beginning at TP11; Memory updates are in 
// G by TP10 for all normal and extracode instructions, but the PINC, MINC, 


&& // not eraseable 

// not a loop counter subseq 






// and SHINC sequences write to G in TP10 because they need to update the 
// parity bit. 


if ( 

ADR: 

GTR_17() 

&& 

// 

not 

a central register 


! ADR 

: GTR_177 7 () 

&& 

// 

not 

fixed memory 


! SEQ 

:isAsserted(SDV1) 

&& 

// 

not 

a loop counter subseq 


! SEQ 

:isAsserted(SMP1)) 






{ 

assert(WE); 

} 

// Additional interrupts are inhibited during servicing of an interrupt; 
// Remove the inhibition when RESUME is executed (INDEX 025) 
if(SEQ::isAsserted(SRSM3)) assert(CLRP); 
break; 


case TP12: 

// DISABLE INPUT CHANGE TO PRIORITY COUNTER (reenable after TP1) 

// Check the priority counters; service any waiting inputs on the next 
// memory cycle, 
assert(WPCTR); 

if(SEQ::register_SNI.read() == 1) // if SNI is set, get next instruction 

{ 

if(INT::IRQ()) // if interrupt requested (see CPM-A for similar assertion) 

{ 

// Interrupt: SQ <- 0 (the default RW bus state) 
assert(RPT); // latch interrupt vector 

assert(SETSTB); // STB <- 1 


else 

{ 


// Normal instruction 

//assert(RB); // SQ <- B (implemented in CPM-A) 

assert(CLSTB); // STB <- 0 


instruction 


assert(WSQ); 

assert(CLSTA); // STA <- 0 

// Remove inhibition of interrupts (if they were) AFTER the next 
assert(CLINH1); // INHINT1 <- 0 


else if(CTR::getSubseqt) == NOPSEL) // if previous sequence was not a counter 

{ 

// get next sequence for same instruction, 
assert(WSTB) ; // STB <- STA 

assert(CLSTA) ; // STA <- 0 


} 

//assert (CLISQ); // SNI <- 0 (moved to TP1) 

break; 

default: ; 

} 




CRG (CRG.h) 
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* CRG - ADDRESSABLE CENTRAL REGISTER subsystem 

■k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CRG.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Addressable Central Registers for the Block 1 Apollo Guidance Computer 

* prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

k 
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*/ 

#ifndef CRG_H 
#define CRG_H 


#include "reg.h" 


class regQ : public reg 

{ 

public: 

regQ() : reg(16, "%06o") { } 

} ; 

class regZ : public reg 

{ 

public: 

regZ() : reg(16, "%06o") ( } 

l; 

class regLP : public reg 

{ 

public: 

regLP() : reg(16, "%06o") { } 

}; 

class regA : public reg 

{ 

public: 

regA() : reg(16, "%06o") ( } 

}; 


class CRG 



l 

public: 

static 

void 

execWP_GENRST 

static 

void 

execRP_RQ () ; 

static 

void 

execRP_RAl(); 

static 

void 

execWP_WQ () ; 

static 

void 

execWP_WAl(); 

static 

void 

execRP_RZ () ; 

static 

void 

execRP_RA2(); 

static 

void 

execWP_WZ () ; 

static 

void 

execWP_WA2(); 

static 

void 

execRP_RLP(); 

static 

void 

execRP_RA3() ; 

static 

void 

execRP_RA () ; 

static 

void 

execRP_RA0(); 

static 

void 

execWP_WA () ; 

static 

void 

execWP_WA0() ; 

static 

void 

execWP_WALP() 



static void execWP_WLP() ; 
static void execWP_WA3() ; 


static regQ register_Q; // return address 
static regZ register_Z; // program counter 
static regLP register_LP; // lower accumulator 
static regA register_A; // accumulator 

static unsigned conv_WALP_LP[] ; 
static unsigned conv_WALP_A[]; 
static unsigned conv_WLP[] ; 


#endif 



CRG (CRG.cpp) 


/**************************************************************************** 

* CRG - ADDRESSABLE CENTRAL REGISTER subsystem 

k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: CRG.cpp 

■k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "CRG.h" 

#include "SEQ.h" 

#include "BUS.h" 

regQ CRG::register_Q; // return address 
regZ CRG::register_Z; // program counter 
regLP CRG::register_LP; // lower accumulator 
regA CRG::register_A; // accumulator 

// BUS LINE ASSIGNMENTS 

// Specify the assignment of bus lines to the inputs of a register (for a 'write' 

// operation into a register). Each 'conv_' array specifies the inputs into a 
// single register. The index into the array corresponds to the bit position in 
// the register, where the first parameter (index=0) is bit 16 of the register (msb) 
// and the last parameter (index=15) is register bit 1 (lsb). The value of 
// the parameter identifies the bus line assigned to that register bit. 'BX' 

// means 'don't care'; i.e.: leave that register bit alone. 


unsigned CRG::conv_WALP_LP[] = 


{ BX, BX, Bl, BX, 

BX, BX, BX, BX, 

BX, 

BX, 

BX, 

BX, 

BX, 

BX, 

BX, 

BX } 

* 

unsigned CRG: : conv_WALP. 
{ SG, SG, US, B14, 

_A[] = 

Bl3, B12, Bl1, 

BIO, 

B9, 

B8, 

, B7 , 

. B6, 

B5, 

B4, 

. B3, 

B2 

unsigned CRG::conv_WLP[ 

{ Bl, Bl, DO, B14, 

] = 

Bl3, B12, Bl1, 

BIO, 

B9, 

B8, 

, Bl, 

. B6, 

. B5, 

B4, 

. B3, 

B2 


void CRG::execWP_GENRST() 

{ 

register_Q.write(0); 
register_Z.write(0) ; 
register_LP.write(0); 
register_A.write(0) ; 

} 


void 

{ 

} 

void 

{ 

} 


CRG::execRP_RQ() 

BUS::glbl_READ_BUS 
CRG::execRP_RAl() 

BUS::glbl_READ_BUS 


register_Q.read() ; 


register_Q.read() ; 


void CRG::execWP_WQ() 

{ 

register_Q.write(BUS::glbl_WRITE_BUS); 

} 

void CRG::execWP_WAl() 

{ 

register_Q.write(BUS::glbl_WRITE_BUS); 



} 


void CRG::execRP_RZ() 

{ 

BUS::glbl_READ_BUS = register_Z.read(); 

} 

void CRG::execRP_RA2() 

{ 

BUS::glbl_READ_BUS = register_Z.read(); 

} 


void CRG::execWP_WZ() 

{ 

register_Z.write(BUS::glbl_WRITE_BUS); 

} 

void CRG::execWP_WA2() 

{ 

register_Z.write(BUS::glbl_WRITE_BUS); 

} 


void CRG::execRP_RLP() 

{ 

BUS::glbl_READ_BUS = register_LP.read(); 

} 

void CRG::execRP_RA3() 

{ 

BUS::glbl_READ_BUS = register_LP.read(); 

} 


void CRG: :execWP_WALP () 

{ 

register_LP.writeShift(BUS::glbl_WRITE_BUS, CRG::conv_WALP_LP); 
register_A.writeShift(BUS::glbl_WRITE_BUS, CRG::conv_WALP_A); 

} 

void CRG::execWP_WLP() 

{ 

register_LP.writeShift(BUS::glbl_WRITE_BUS, CRG::conv_WLP); 

} 

void CRG::execWP_WA3() 

{ 

register_LP.writeShift(BUS::glbl_WRITE_BUS, CRG::conv_WLP); 

} 


void CRG::execRP_RA() 

{ 

BUS::glbl_READ_BUS = register_A.read(); 

} 

void CRG::execRP_RAO() 

{ 

BUS::glbl_READ_BUS = register_A.read(); 

} 


void CRG::execWP_WA() 

{ 

register_A.write(BUS::glbl_WRITE_BUS); 

} 

void CRG::execWP_WAO() 

{ 

register_A.write(BUS::glbl_WRITE_BUS); 





CTR (CTR.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* CTR - INVOLUNTARY PRIORITY COUNTER subsystem 

:k 

* AUTHOR: John Pultorak 

* DATE: 10/25/02 

* FILE: CTR.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Involuntary Counters for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef CTR_H 
#define CTR_H 

#include "reg.h" 

enum ctrNumber { // indexes for priority cells 
OVCTR =0, 

TIME2 =1, // Block II puts TIME2 first 

TIME1 =2, 

TIME3 =3, 

TIME4 =4, 

} ; 

enum ctrAddr { // octal addresses of counters 

// Note: In Block 1, TIME1 preceeds TIME2. In Block II, 

// this is reversed: TIME2 preceeds TIME1. This reversal 
// was done so that the most significant time word occurs 
// at the lower address in the 2 word AGC clock. Therefore, 

// a common AGC software routine can be used to read the 
// time. 

OVCTR_ADDR =0034, 

TIME2_ADDR =0035, // Block II puts TIME2 first 

TIME1_ADDR =0036, 

TIME3_ADDR =0037, 

TIME4_ADDR =0040, 

SPARE1_ADDR =0041, 

SPARE2_ADDR =0042, 

SPARE3_ADDR =0043 

}; 

enum pCntrType { 


NOPSEL 

=0, 

// 

NO COUNTER 

PINCSEL 

=1, 

// 

PINC 

MINCSEL 

=2 

// 

MINC 


}; 

class regUpCELL : public reg 

{ 

public: 

// Bit synchronize the counter inputs. 
regUpCELL() : reg(8, "%03o") { } 

}; 


class regDnCELL : public reg 

{ 

public: 



// Bit synchronize the counter inputs. 
regDnCELLO : reg(8, "%03o") { } 


class CTR 

{ 

public: 

static void execWP_GENRST(); 
static void execWP_WPCTR(); 
static void execRP_RSCT() ; 
static void execWP_WOVR(); 
static void execWP_WOVC() ; 

static unsigned getSubseqO; 

static unsigned pcUp[]; 
static unsigned pcDn[]; 

static regUpCELL register_UpCELL; // latches the selected priority counter cell (0-7) 
static regDnCELL register_DnCELL; // latches the selected priority counter cell (0-7) 

private: 

static void resetAllpc(); 

}; 

#endif 



CTR (CTR.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* CTR - INVOLUNTARY PRIORITY COUNTER subsystem 

:k 

* AUTHOR: John Pultorak 

* DATE: 10/25/02 

* FILE: CTR.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#include "CTR.h" 

#include "INT.h" 

#include "BUS.h" 

#include "SEQ.h" 


regUpCELL CTR::register_UpCELL; // latches the selected priority counter cell (0-7 (decimal)) 
regDnCELL CTR::register_DnCELL; // latches the selected priority counter cell (0-7 (decimal)) 

unsigned CTR::pcUp[8]; 
unsigned CTR::pcDn[8]; 


// PRIORITY COUNTERS 

/ I kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

// The interrupt priorities are stored in RPCELL as 1-5, but 
// the priority counter priorities are stored as 0-7; this 
// inconsistency should be fixed, probably. Also, the method 
// of address determination for the priority counters needs work 


void CTR::resetAllpc() 

{ 

for(int i=0; i<8; i++) { pcUp[i]=0; pcDn[i]=0; } 

} 


// priority encoder; outputs 0-7; 0=highest priority (OVCTR), 1=TIME2, 2=TIME1, etc 
static bool newPriority = true; // a simulator performance optimization; not in the hardware AGC 
unsigned getPriority() 

{ 


// simulator optimization; don't 


changed 

static unsigned priority =7; // default 
if(!newPriority) return priority; 


recompute priority 
(lowest priority) 


if the priority inputs haven't 


priority =7; // default (lowest priority) 
for(int i=0; i<8; i++) 

{ 

if(CTR::register_UpCELL.readField(i+1, i+1) | 

CTR::register_DnCELL.readField(i+1, i + 1)) 

{ 

priority = i; 
break; 


newPriority = false; 
return priority; 


unsigned CTR::getSubseq() 

{ 

unsigned pc = getPriority(); 

unsigned upCell = CTR::register_UpCELL.readField(pc+1,pc+1); 
unsigned dnCell = CTR::register_DnCELL.readField(pc+1, pc+1) ; 



if(upCell == 1 && dnCell == 0) 
return PINCSEL; 

else if(upCell == 0 && dnCell == 
return MINCSEL; 

else 


return NOPSEL; 


void CTR::execWP_GENRST() 

{ 

register_UpCELL.write(0); 
register_DnCELL.write(0); 

resetAllpc () ; 

} 


void CTR::execWP_WPCTR() 

{ 

// transfer cell data into up and down synch registers 

for(int i=0; i<8; i++) 

{ 

register_UpCELL.writeField(i+1,i+1,pcUp[i]); 
register_DnCELL.writeField(i+1,i+l,pcDn[i]); 

} 

newPriority=true; // a simulator performance optimization; not in hardware AGC 

} 


// Selected counter address is requested at TP1. 
// Counter address is latched at TP12 

void CTR: :execRP_RSCT () 

{ 

BUS::glbl_READ_BUS = 034 + getPriority(); 

} 


void CTR::execWP_WOVR() 

{ 

unsigned pc = getPriority(); 
if(register_UpCELL.readField(pc+1,pc+1)) 
{ 

pcUp[pc]= 0; 

} 

if(register_DnCELL.readField(pc+1, pc+1)) 

{ 

pcDn[pc]= 0; 

} 


TIME2 

T3RUPT 

DSRUPT 


// generate various actions in response to counter overflows: 
switch(BUS::testOverflow(BUS::glbl_WRITE_BUS)) 

{ 

case POS_OVF: // positive overflow 

switch(getPriority ()) // get the counter 

{ 


case 

TIME1: 

CTR: 

pcUp[TIME2]=1; 

break; 

// 

overflow 

from TIME1 

increments 

case 

TIME3: 

INT: 

rupt[T3RUPT]=1 

break, 

// 

overflow 

from 

TIME3 

triggers 

case 

TIME4: 

INT: 

rupt [DSRUPT] =1 

break, 

// 

overflow 

from 

TIME 4 

triggers 


break; 

case NEG_OVF: break; 


// no actions for negative counter overflow 


void CTR: : execWP_WOVC () 

{ 




switch(BUS::testOverflow(BUS::glbl_WRITE_BUS)) 

{ 

case POS_OVF: CTR::pcUp[OVCTR]=1; break; // incr OVCTR (034) 
case NEG_OVF: CTR::pcDn[OVCTR]=1; break; // deer OVCTR (034) 

} 


// register_PCELL: Overflow from the selected counter appears 
// on the bus when WOVR or WOVC is asserted; 

// it could be used to trigger an interrupt 
// or routed to increment another counter 



DSP (DSP.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* DSP - DSKY DISPLAY subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: DSP.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* DSKY Display for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

k / 

#ifndef DSP_H 
#define DSP_H 

class DSP 

{ 

public: 

// DSKY display 

// major mode display 
static char MD1; 
static char MD2; 

// verb display 
static char VD1; 
static char VD2; 

// noun display 
static char ND1; 
static char ND2; 

// R1 

static char R1S; 
static char R1D1; 
static char R1D2; 
static char R1D3; 
static char R1D4; 
static char R1D5; 

// R2 

static char R2S; 
static char R2D1; 
static char R2D2; 
static char R2D3; 
static char R2D4; 
static char R2D5; 

// R3 

static char R3S; 
static char R3D1; 
static char R3D2; 
static char R3D3; 
static char R3D4; 
static char R3D5; 

// These flags control the sign; if both bits are 0 or 1, there is no sign. 

// Otherwise, the sign is set by the selected bit. 
static unsigned R1SP; 
static unsigned R1SM; 
static unsigned R2SP; 
static unsigned R2SM; 
static unsigned R3SP; 
static unsigned R3SM; 



// verb/noun flash 
static unsigned flash; 

static void clearOutO () ; 

static char signConv(unsigned p, unsigned m) 

static char outConv(unsigned in); 

static void decodeRelayWord(unsigned in); 

} ; 

#endif 



DSP (DSP.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kk-k-k-k-kkk-k-k-k-kk-k-k-k-kkk-k-k-k-kk-k-k-k-kkk-k-k-k-kk-k-k-k-k-k-k-k-k-k-kk-k 

* DSP - DSKY DISPLAY subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: DSP.cpp 

•k 

* NOTES: see header file. 

* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

♦include "DSP.h" 

♦include <string.h> 

♦include <iostream.h> 

♦include <stdio.h> 


bool dskyChanged = false; // true when DSKY display changes 


// major mode display 
char DSP::MD1=0; 
char DSP::MD2=0; 

// verb display 
char DSP::VD1=0; 
char DSP::VD2=0; 

// noun display 
char DSP::ND1=0; 
char DSP::ND2=0; 

// R1 

char DSP::R1S=0; 
char DSP::R1D1=0; 
char DSP: : R1D2 = 0; 
char DSP::R1D3=0; 
char DSP::R1D4=0; 
char DSP: : R1D5 = 0; 

// R2 

char DSP::R2S=0; 
char DSP: : R2D1 = 0; 
char DSP::R2D2=0; 
char DSP: : R2D3 = 0; 
char DSP: : R2D4 = 0; 
char DSP: : R2D5 = 0; 

// R3 

char DSP::R3S=0; 
char DSP: : R3D1 = 0; 
char DSP: : R3D2 = 0; 
char DSP::R3D3=0; 
char DSP::R3D4=0; 
char DSP::R3D5=0; 

// These flags control the sign; if both bits are 0 or 1 , there is no sign. 

// Otherwise, the sign is set by the selected bit. 
unsigned DSP::R1SP=0; 
unsigned DSP::R1SM=0; 
unsigned DSP::R2SP=0; 
unsigned DSP::R2SM=0; 
unsigned DSP::R3SP=0; 
unsigned DSP::R3SM=0; 

// flag controls 1 Hz flash of verb and noun display 
unsigned DSP::flash = 0; // 0=flash off, l=flash on 


void DSP::clearOutO() 

{ 

MD1 = MD2 = ' '; // major mode display 

VD1 = VD2 = ' '; // verb display 










NDl = 

ND2 = 

' 1 / 

// 

noun display 



R1S = 

R1D1 = 

R1D2 

= R1D3 

= R1D4 = R1D5 = ' ’; 

// 

R1 

R2S = 

R2D1 = 

R2D2 

= R2D3 

= R2D4 = R2D5 = ' ’; 

// 

R2 

R3S = 

R3D1 = 

R3D2 

= R3D3 

= R3D4 = R3D5 = ' ’; 

// 

R3 

R1SP 

= R1SM 

= 0; 





R2SP 

= R2SM 

= 0; 





R3SP 

= R3SM 

= 0; 






char DSP::signConv(unsigned p, unsigned m) 

{ 


if <p 

&& 

!m) 



return '+ 

else 

if 

(m && !p) 

return '- 

else 


return ' 


char DSP::outConv(unsigned in) 


switch(in) 


i 

case 

000 

return 

’ ' ; 

case 

025 

return 

'O'; 

case 

003 

return 

’ 1' ; 

case 

031 

return 

'2' ; 

case 

033 

return 

’ 3 ' ; 

case 

017 

return 

' 4 ' ; 

case 

036 

return 

’ 5 ' ; 

case 

034 

return 

' 6'; 

case 

023 

return 

' 7 ' ; 

case 

035 

return 

'8' ; 

case 

i 

037 

return 

’ 9' ; 

/ 

retu 

rn ' 

' ; // error 



void DSP::decodeRelayWord(unsigned in) 
{ 


unsigned 

charSelect 

= (in & 074000) 

i » 11; 



// get bits 15-12 

unsigned 

bll 

= (in & 02000) 

» 10; 

// 

get 

bit 11 

unsigned 

bHigh 

= (in & 01740) 

>> 5; 

// 

get 

bits 10-6 

unsigned 

bLow 

= in & 037; 






//****************************** 

#ifdef NOTDEF 

char buf[80]; 

sprintf(buf, "bitsl5-12: %02o, Bitll: %01o, bitslO-6: %02o, bits5-l: %02o", 
charSelect, bll, bHigh, bLow); 
cout << buf << endl; 

#endif 

dskyChanged = true; 

//****************************** 


switch(charSelect) 
{ 


case 

013: 

MD1 

= outConv(bHigh); 

MD2 

= outConv(bLow); 

break; 


case 

012 : 

VD1 

= outConv(bHigh); 

VD2 

= outConv(bLow); 

flash 

= bll; break; 

case 

Oil: 

NDl 

= outConv(bHigh); 

ND2 

= outConv(bLow); 

break; 


case 

010: 





R1D1 = 

outConv(bLow) 


// UPACT not implemented 


case 007: 


R1SP = bll; R1S = signConv(R1SP, R1SM); 
R1D2 = outConv(bHigh); 

R1D3 = outConv(bLow); break; 


case 006: 


R1SM = bll; R1S = signConv(R1SP, R1SM); 
R1D4 = outConv(bHigh); 

R1D5 = outConv(bLow); break; 


case 005: 


R2SP = bll; R2S = signConv(R2SP, R2SM); 
R2D1 = outConv(bHigh); 

R2D2 = outConv(bLow); break; 


break 






case 004: 

case 003: 

case 002: 

case 001: 

} 


R2SM = bll; R2S = signConv(R2SP, R2SM); 
R2D3 = outConv(bHigh); 

R2D4 = outConv(bLow); break; 

R2D5 = outConv(bHigh); 

R3D1 = outConv(bLow); break; 

R3SP = bll; R3S = signConv(R3SP, R3SM); 
R3D2 = outConv(bHigh); 

R3D3 = outConv(bLow); break; 

R3SM = bll; R3S = signConv(R3SP, R3SM); 
R3D4 = outConv(bHigh); 

R3D5 = outConv(bLow); break; 



INP (INP.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* INP - INPUT REGISTER subsystem 

~k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INP.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Input Registers for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef INP_H 
#define INP_H 

#include "reg.h" 

class reglnO : public reg 

{ 

public: 

reglnOO : reg(16, "%06o") { } 

}; 

class reglnl : public reg 

{ 

public: 

reglnl() : reg(16, "%06o") { } 

}; 

class regln2 : public reg 

{ 

public: 

regln2() : reg(16, "%06o") { } 

}; 

class regln3 : public reg 

{ 

public: 

regln3() : reg(16, "%06o") { } 

}; 


class INP 

{ 

public: 

static void execRP_RA4() ; 
static void execRP_RA5() ; 
static void execRP_RA6() ; 
static void execRP_RA7(); 

static reglnO register_IN0; // input register 0 

static reglnl register_INl; // input register 1 

static regln2 register_IN2; // input register 2 

static regln3 register_IN3; // input register 3 

} ; 


#endif 



INP (INP.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* INP - INPUT REGISTER subsystem 

~k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INP.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


k / 


#include " 

INP.h" 





#include " 

SEQ.h" 





#include " 

KBD.h" 





#include " 

MON.h" 





#include " 

BUS.h" 





reglnO INP 

::register_ 

_IN0 ; 

// 

input 

register 

reglnl INP 

::register_ 

.INI; 

// 

input 

register 

regln2 INP 

::register_ 

.IN2; 

// 

input 

register 

regln3 INP 

::register_ 

_IN3; 

// 

input 

register 


void 

{ 


INP : : execRP_RA4 () 


// Sample the 
// read pulse 
// register 0 


state of the inputs at the moment the 
is asserted. In the H/W implementation. 


is a buffer, not a latch. 
register_IN0.writeField(5,1,KBD::kbd); 

register_IN0.writeField(6,6,0); // actually should be keypressed strobe 
register_IN0.writeField(14,14,MON::SA); 
register_IN0.elk() ; 

BUS::glbl_READ_BUS = register_IN0.read() ; 


void INP::execRP_RA5() 

{ 

BUS::glbl_READ_BUS = register_INl.read(); 

} 


void INP::execRP_RA6() 

{ 

BUS::glbl_READ_BUS = register_IN2.read(); 

} 


void INP::execRP_RA7() 

{ 

BUS::glbl_READ_BUS = register_IN3.read(); 

} 



INT (INT.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* INT - PRIORITY INTERRUPT subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INT.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Priority Interrupts for the Block 1 Apollo Guidance Computer prototype (AGC4). 

•k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef INT_H 
#define INT_H 

#include "reg.h" 


ruptAddress { 

// Addresses for service 
T3RUPT_ADDR =02004, 

ERRUPT_ADDR =02010, 

DSRUPT_ADDR =02014, 

KEYRUPT_ADDR =02020, // 


routines of vectored interrupts 

// option 1: overflow of TIME 3 
// option 2: error signal 

// option 3: telemetry end pulse or TIME 4 overflow 
option 4: activity from MARK, keyboard, or tape reader 


enum ruptNumber { 

// Option number (selects rupt priority cell) 

// NOTE: the priority cells (rupt[]) are indexed 0-4, but stored in the 
// RPCELL register as 1-5; (0 in RPCELL means no interrupt) 


T3RUPT 

=0, 

// 

option 

1: 

overflow of TIME 3 


ERRUPT 

=1, 

// 

option 

2: 

error signal 



DSRUPT 

=2, 

// 

option 

3: 

telemetry end 

pulse 

or TIME 4 overflow 

KEYRUPT 

=3, 

// 

option 

4: 

activity from 

MARK, 

keyboard, or tape reader 


class regRPCELL : public reg 

{ 

public: 

regRPCELL() : reg(5, "%02o") { } 


// also inhibits additional interrupts while an interrupt is being processed 


class regINHINTI : public reg 

{ 

public: 

regINHINTI () : reg(l, "%01o") { } 

}; 


class regINHINT : public reg 

{ 

public: 

regINHINT() : reg(l, "%01o") { } 

}; 


class INT 

{ 

public: 

friend class CLK; 
friend class MON; 


static void execRP_RRPA(); 



static void execWP_GENRST(); 
static void execWP_RPT() ; 
static void execWP_KRPT() ; 
static void execWP_CLRP(); 
static void execWP_WOVI(); 
static void execWP_CLINHl(); 
static void execWP_INH() ; 
static void execWP_CLINH(); 

static bool IRQ(); // returns true if an interrupt is requested 
static unsigned rupt[]; 


private: 

static void resetAHRupt () ; 
static unsigned getPriorityRupt(); 

static regRPCELL register_RPCELL; // latches the selected priority interrupt vector (1-5) 
static regINHINTI register_INHINTl; // inhibits interrupts for 1 instruction (on WOVI) 

static regINHINT register_INHINT; // inhibits interrupts on INHINT, reenables on RELINT 


#endif 



INT (INT.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* INT - PRIORITY INTERRUPT subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: INT.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "INT.h" 

#include "SEQ.h" 

#include "BUS.h" 

regRPCELL INT::register_RPCELL; // latches the selected priority interrupt vector (1-5) 
regINHINTI INT::register_INHINTl; // inhibits interrupts for 1 instruction (on WOVI) 

regINHINT INT::register_INHINT; // inhibits interrupts on INHINT, reenables on RELINT 

// NOTE: the priority cells (rupt[]) are indexed 0-4, but stored in the 
// RPCELL register as 1-5; (0 in RPCELL means no interrupt) 

unsigned INT::rupt[5]; 


bool INT::IRQ() 

{ 

if ( INT::getPriorityRupt() 

requested 

serviced 

instruction 


&& INT 
&& INT 
&& INT 


:register_RPCELL.read() == 0 
: register_INHINTl.read() == 0 
: register_INHINT.read() == 0) 


{ 


return true; 

} 

return false; 


// if interrupt 

// and interrupt not currently being 
// and interrupt not inhibited for 1 
// and interrupts enabled (RELINT) 


void INT : : resetAHRupt () 

{ 

for(int i=0; i<5; i++) { rupt[i]=0; } 

} 

// interrupt vector; outputs 1-5 (decimal) == vector; 0 == no interrupt 
unsigned INT::getPriorityRupt() 

{ 

for(int i=0; i<5; i++) { if(rupt[i]) return i+1; } 

return 0; 

} 


void INT : : execRP_RRPA () 

{ 

BUS::glbl_READ_BUS = 02000 + (register_RPCELL.read() << 2); 

} 


// latches the selected priority interrupt vector (1-5) 

// also inhibits additional interrupts while an interrupt is being processed 


void INT::execWP_GENRST() 

{ 

register_RPCELL.write(0) ; 
register_INHINT.write(1) ; 
resetAHRupt () ; 


void INT::execWP_RPT() 

{ 




register_RPCELL.write(INT::getPriorityRupt()); 

} 

void INT: : exec WP_KRPT () 

{ 

INT::rupt[register_RPCELL.read()-1] = 0; 

} 

void INT: :execWP_CLRP () 

{ 

register_RPCELL.write(0) ; 

} 


void 

{ 

} 


// INHINT1: inhibits interrupts for 1 instruction (on WOVI) 
INT: :execWP_WOVI () 

if(BUS::testOverflow(BUS::glbl_WRITE_BUS) != NO_OVF) 
register_INHINTl.write(1) ; 


void INT::execWP_CLINHl() 

{ 

register_INHINTl.write(0) ; 

} 


// INHINT: inhibits interrupts on INHINT, reenables on RELINT 


void INT::execWP_INH() 

{ 

register_INHINT.write(1) ; 

} 

void INT::execWP_CLINH() 

{ 

register_INHINT.write(0) ; 
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* ISD - INSTRUCTION SUBSEQUENCE DECODER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ISD.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Instruction Subsequence Decoder for the Block 1 Apollo Guidance Computer 

* prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef ISD_H 
#define ISD_H 

#include "SEQ.h" 

#include "CTR.h" 

// INSTRUCTION SUBSEQUENCE DECODER 


#ifdef NOTDEF 
class ISD 
{ 

public: 

static subseq instructionSubsequenceDecoder() ; 
static char* ISD::subseqString[]; 

} ; 

#endif 


#endif 



ISD (ISD.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkk-k-k-kk-k-k-k-k-kk-k-k-k-kk-k-k-k-kkk-k-k-k-kk-k-k-k-kkk-k-k-k-kk-k-k-k-k-kk-k-k-k-kk-k 

* ISD - INSTRUCTION SUBSEQUENCE DECODER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: ISD.cpp 

•k 

* NOTES: see header file. 

* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#include "ISD.h" 


#ifdef NOTDEF 

char* ISD::subseqString[] = 

{ 

"TCO", 

"CCSO", 

"CCS1", 

"NDXO", 

"NDX1", 

"RSM3", 

"XCHO", 

"CSO", 

"TSO", 

"ADO", 

"MASKO", 

"MPO", 

"MP1", 

"MP3", 

"DVO", 

"DV1", 

"SUO", 

"RUPT1", 

"RUPT3" , 

"STD2", 

"PINCO", 

"MINCO", 

"SHINCO", 

"NO_SEQ" 

} ; 


subseq ISD ::instructionSubsequenceDecoder() 

{ 

// Combinational loqic decodes instruction and the stage count 
// to get the instruction subsequence, 
static subseq decode[16][4] = ( 


TCO, 

RUPT1, 

STD2, 

RUPT3 } 

, // 

00 

CCSO, 

CCS1, 

NO_SEQ, 

NO_SEQ } 

, // 

01 

NDXO, 

NDX1, 

NO_SEQ, 

RSM3 } 

, // 

02 

XCHO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

03 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

04 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

05 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

06 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

07 

NO_SEQ, 

NO_SEQ, 

NO_SEQ, 

NO_SEQ } 

, // 

10 

MPO, 

MP1, 

NO_SEQ, 

MP3 } 

, // 

11 

DVO, 

DV1, 

STD2, 

NO_SEQ } 

, // 

12 

SUO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

13 

CSO, 

NO_SEQ, 

STD2, 

NO_SE Q } 

, // 

14 

TSO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

, // 

15 

ADO, 

NO_SEQ, 

STD2, 

NO_SE Q } 

, // 

16 

MASKO, 

NO_SEQ, 

STD2, 

NO_SEQ } 

// 

17 


}; 

switch (CTR: :getSubseq () ) 

{ 

case PINCSEL: return PINCO; 



case MINCSEL: return MINCO; 

default: return decode[SEQ::register_SQ.read()][SEQ::register_STB.read()] 

} 


#endif 
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* KBD - DSKY KEYBOARD subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: KBD.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* DSKY Keyboard for the Block 1 Apollo Guidance Computer prototype (AGC4). 

•k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef KBD_H 
#define KBD_H 


enum 


keylnType { 

// DSKY keyboard input codes: Taken from 
// These codes enter the computer through 
// The MSB is in bit 5; LSB in bit 1. Key 


KEYIN_NONE =0, 

KEYIN_0 =02 0, 

KEYIN_1 =001, 

KEYIN_2 =002, 

KEYIN_3 =003, 

KEYIN_4 =004, 

KEYIN_5 =005, 

KEYIN_6 =006, 

KEYIN_7 =007, 

KEYIN_8 =010, 

KEYIN_9 =011, 

KEYIN_VERB =021, 

KE YIN_E RROR_RE SET =022, 

KEYIN_KEY_RE LEASE =031, 

KEYIN_PLUS =032, 

KEYIN_MINUS =033, 

KEYIN_ENTER =034, 

KEYIN_CLEAR =036, 

KEYIN_NOUN =037, 


E-1574 

bits 

entry 

// 


, Appendix 1 
1-5 of IN0. 
generates KEYRUPT. 
no key depressed** 


class KBD 

{ 

public: 

static keylnType kbd; // latches the last key entry from the DSKY 
static void keypress(keylnType c); 


#endif 



KBD (KBD.cpp) 




k 

k 

KBD - DSKY 

KEYBOARD subsyst. 

k 

AUTHOR: 

John Pultorak 

k 

DATE: 

9/22/01 

k 

k 

FILE : 

KBD.cpp 

k 

NOTES: see 

header file. 




#include "KBD.h" 
#include "INT.h" 


★ 


■k k 


// DSKY keyboard 

keylnType KBD: : kbd=KEYIN_NONE; // latches the last key entry from the DSKY 

void KBD::keypress(keylnType c) 

{ 

// latch the keycode 

kbd = c; 

// generate KEYRUPT interrupt 
INT::rupt[KEYRUPT] = 1; 

} 
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* MBF - MEMORY BUFFER REGISTER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: MBF.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Memory Buffer Register for the Block 1 Apollo Guidance Computer prototype (AGC4). 

•k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef MBF_H 
#define MBF_H 

#include "reg.h" 


class regG : public reg 

{ 

public: 

// all memory bits except bit 15 (parity) 
// bit 15 is not used, so ignore it. 
regGO : reg(16, "%06o") { } 

}; 


class MBF 

{ 

public: 

static 

static 

static 

static 

static 

static 

static 

static 

static 

static 


execWP_GENRST () ; 

execRP_RG () ; 
execRP_WE () ; 

execWP_WGn() ; 
execWP_WGx() ; 
execWP_W2 0() ; 
execWP_W21() ; 
execWP_W22() ; 
execWP_W23() ; 
execWP_SBWG () ; 


void 

void 

void 

void 

void 

void 

void 

void 

void 

void 


// Bit 15 (parity) is kept in a separate register in PAR 
// because it is independently loaded, 
static regG register_G; // memory buffer register (except for bit 15) 


static 

static 

static 

static 

static 

static 

static 

static 


unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 


conv_RG [ ] ; 
conv_WGn [ ] ; 
conv_W2 0 [ ] ; 
conv_W21 [ ] ; 
conv_W22 [ ] ; 
conv_W23 [ ] ; 
conv_SBWG [ ] ; 
conv_WE [ ] ; 


#endif 
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* MBF - MEMORY BUFFER REGISTER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: MBF.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "MBF.h" 

#include "SEQ.h" 

#include "ADR.h" 

#include "BUS.h" 

#include "PAR.h" 

#include "MEM.h" 


// The actual bit 15 of register_G is not used. 
regG MBF::register_G; // memory buffer register (except bit 15: parity) 


unsigned MBF::conv_RG[] = 
{ SG, SG, B14, B13, 

, B12, 

Bll, 

. BIO, 

, B9, 

. B8, 

. B7, 

B6, 

. B5, 

. B4, 

B3, 

, B2, 

. Bl 

unsigned MBF::conv_SBWG[] 
{ SGM, BX, B14, B13, 

, B12, 

Bl 1, 

, BIO, 

, B9, 

. B8, 

. B7, 

B6, 

. B5, 

. B4, 

B3, 

, B2, 

. Bl 

unsigned MBF::conv_WE[] = 
{ BX, SG, B14, B13, 

, B12, 

Bll, 

, BIO, 

, B9, 

. B8, 

. B7, 

B6, 

. B5, 

. B4, 

B3, 

, B2, 

. Bl 

unsigned MBF::conv_W20[] 

{ Bl, BX, SG, B14, 

B13, 

B12, 

Bll, 

BIO, 

. B9, 

. B8, 

B7, 

. B6, 

. B5, 

B4 , 

. B3, 

. B2 

unsigned MBF::conv_W21[] 

{ SG, BX, SG, B14, 

B13, 

B12, 

Bll, 

BIO, 

. B9, 

. B8, 

B7, 

. B6, 

. B5, 

B4, 

. B3, 

. B2 

unsigned MBF::conv_W22[ ] 

{ Bl4, BX, B13, B12, 

, Bl 1, 

BIO, 

. B9, 

B8, 

B7, 

B6, 

B5, 

B4, 

B3, 

B2, 

Bl, 

SG 

unsigned MBF::conv_W23[] 

{ SG, BX, B13, B12, 

, Bl 1, 

BIO, 

. B9, 

B8, 

B 7, 

B6, 

B5, 

B4, 

B3, 

B2, 

Bl, 

SG 


void MBF::execWP_GENRST() 

{ 

register_G.write(0); 

} 


void MBF::execRP_RG() 

{ 

if(ADR::GTR_17()) 

{ 


BUS::glbl_READ_BUS 


register_G.shiftData(0, register_G.read(), MBF::conv_RG) 


void MBF::execRP_WE() 

{ 

// Write G into memory; shift the sign to bit 15; parity is written from the 
// PAR subsystem 

MEM::MEM_DATA_BUS = (register_G.shiftData(0, MBF::register_G.read(), MBF::conv_WE)); 

} 



void MBF::execWP_WGn() 

{ 

register_G.write(BUS::glbl_WRITE_BUS); 

} 

void MBF::execWP_WGx() 

{ 

// This is only used in PINC, MINC, and SHINC. Does not clear G 
// register; writes (ORs) into G from RWBus and writes into parity 
// from 1-15 generator. The sequence calls CLG in a previous TP to 
// reset G to zero, so the OR operation can be safely eliminated 
// from my implementation of the design. 
register_G.write(BUS::glbl_WRITE_BUS); 

} 

void MBF::execWP_W2 0() 

{ 

register_G.writeShift(BUS::glbl_WRITE_BUS, MBF::conv_W20); 

} 

void MBF::execWP_W21() 

{ 

register_G.writeShift(BUS::glbl_WRITE_BUS, MBF::conv_W21); 

} 

void MBF::execWP_W22() 

{ 

register_G.writeShift(BUS::glbl_WRITE_BUS, MBF::conv_W22); 

} 

void MBF::execWP_W2 3() 

{ 

register_G.writeShift(BUS::glbl_WRITE_BUS, MBF::conv_W23); 

} 


void MBF : : execWP_SBWG () 

{ 

register_G.writeShift(MEM: :MEM_DATA_BUS, MBF: :conv_SBWG) ; 

} 
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* MEM - ERASEABLE/FIXED MEMORY subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/26/02 

* FILE: MEM.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Eraseable & Fixed Memory for the Block 1 Apollo Guidance Computer 

* prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef MEM_H 
#define MEM_H 

#include "reg.h" 


#define NUMFBANK 12 // number of 1024 word fixed memory banks 


class regEMEM : public reg 

{ 

public: 

regEMEM() : reg(16, "%06o") { } 

regEMEM& operator= (const unsigned& r) { write(r); return *this; } 

} ; 


class regFMEM : public reg 

{ 

public: 

regFMEM() : reg(16, "%06o") { } 

regFMEM& operator= (const unsigned& r) { write(r); return *this; } 

} ; 


class MEM 

{ 

public: 

static void execWP_WE(); 
static void execRP_SBWG(); 


static regEMEM register_EMEM[]; // erasable memory 
static regFMEM register_FMEM[]; // fixed memory 

static unsigned MEM_DATA_BUS; // data lines: memory bits 15-1 
static unsigned MEM_PARITY_BUS; // parity line: memory bit 16 

static unsigned readMemory(); 

static void writeMemory(unsigned data); 

// The following functions are used in the simulator, 

// but are implemented in the AGC design, 
static unsigned readMemory(unsigned address); 
static void writeMemory(unsigned address, unsigned data); 

}; 


#endif 
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* MEM - ERASEABLE/FIXED MEMORY subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/26/02 

* FILE: MEM.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "MEM.h" 

#include "ADR.h" 

#include "stdlib.h" 


regEMEM MEM::register_EMEM[1024]; // erasable memory 

regFMEM MEM::register_FMEM[1024*(NUMFBANK+1)]; // fixed memory (lowest 1024 words ignored) 

unsigned MEM::MEM_DATA_BUS = 0; // data lines: memory bits 15-1 

unsigned MEM::MEM_PARITY_BUS = 0; // parity line: memory bit 16 


void MEM::execWP_WE() 

{ 

// Write into memory; parity bit in bit 16 
writeMemory( (MEM_PARITY_BUS << 15) | MEM_DATA_BUS ); 

} 

void MEM: :execRP_SBWG () 

{ 

MEM_DATA_BUS = readMemoryO & 0077777; // everything except parity 
MEM_PARITY_BUS = (readMemoryO & 0100000) >> 15; // parity bit only 

} 


unsigned MEM::readMemory() 

{ 

// Return memory value addressed by lower 10 bits of the S register (IK) and the 
// bank decoder (which selects the IK bank) 
unsigned lowAddress = ADR::register_S.readField(10,1); 

if(ADR::bankDecoder() == 0) 

return MEM::register_EMEM[lowAddress].read(); 

unsigned highAddress = ADR::bankDecoder() << 10; 

return MEM::register_FMEM[highAddress | lowAddress].read(); 

} 

void MEM::writeMemory(unsigned data) 

{ 

// Write into erasable memory addressed by lower 10 bits of the S register (IK) 
// and the bank decoder (which selects the IK bank) 
unsigned lowAddress = ADR::register_S.readField(10,1); 
if(ADR::bankDecoder() == 0) 

{ 

MEM::register_EMEM[lowAddress].write(data); 

MEM::register_EMEM[lowAddress].elk(); // not a synchronous FF, so execute 
immediately ************* 

} 

} 

unsigned MEM::readMemory(unsigned address) 

{ 

// Address is 14 bits. This function is used by the simulator for examining 
// memory; it is not part of the AGC design, 
unsigned lowAddress = address & 01777; 
unsigned bank = (address & 036000) >> 10; 

if (bank == 0) 

return MEM: :register_EMEM[lowAddress] .read(); 



unsigned highAddress = bank << 10; 

return MEM::register_FMEM[highAddress | lowAddress].read(); 


void MEM::writeMemory(unsigned address, unsigned data) 

{ 

// Address is 14 bits. This function is used by the simulator for depositing into 
// memory; it is not part of the AGC design. This function is also used to 
// initialize fixed memory. 

//************************************************************ 

// This function could also write the parity into memory 
//************************************************************ 
unsigned lowAddress = address & 01777; 
unsigned bank = (address & 036000) >> 10; 

if (bank == 0) 

{ 

if(lowAddress > 1024) 

{ 

cout << "Error: Eraseable address=" << lowAddress << endl; 
exit (0); 

} 

MEM::register_EMEM[lowAddress].write(data); 

MEM::register_EMEM[lowAddress].elk(); // execute immediately 

} 

else 

{ 

unsigned highAddress = bank << 10; 

if((highAddress | lowAddress) >= 1024*(NUMFBANK+1)) 

{ 

cout << "Error: Fixed address=" « (highAddress | lowAddress) << endl; 
exit (0); 

} 


MEM: 

MEM: 


register_FMEM[highAddress | lowAddress].write(data); 

register_FMEM[highAddress | lowAddress].elk(); // execute immediately 



MON (MON.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* MON - AGO MONITOR subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: MON.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* AGO Monitor for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef MON_H 
#define MON_H 


class MON 


{ 

public: 


static 

void displayAGC(); 



static 

char* MON: 

: clkTypestring[' 

]; 

static 

unsigned 

PURST; 

// 

power up reset 

static 

unsigned 

RUN; 

// 

run/halt switch 

static 

unsigned 

STEP; 

// 

single step switch 

static 

unsigned 

INST; 

// 

instruction/sequence step select switch 

static 

unsigned 

FOLK; 

// 

clock mode (0=single (manual) clock, l=continuous 

static 

unsigned 

SA; 

// 

"standby allowed" SW; 




// 

0=NO (full power), 1=YES (low power) 

static 

unsigned 

SCL_ENAB; 

// "scaler enabled" SW; 0=NO (scaler halted). 


(scaler running) 


clock) 


1=YES 


#endif 



MON (MON.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* MON - AGO MONITOR subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: MON.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "MON.h" 


#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 


"TPG.h" 
"MON.h" 
"SCL.h" 
"SEQ.h" 
"INP.h" 
"OUT.h" 
"BUS.h" 
"DSP.h" 
"ADR.h" 
"PAR.h" 
"MBF.h" 
"MEM.h" 
"CTR.h" 
"INT.h" 
"KBD.h" 
"CRG.h" 
"ALU.h" 
"CPM.h" 
"ISD.h" 
"CLK.h" 


unsigned MON: 
unsigned MON: 
unsigned MON: 
unsigned MON: 
unsigned MON: 


: PURST=1; 
: RUN=0; 

: STEP=0; 

: INST=1; 

: FCLK=0; 


// power up reset; initially high at startup 
// run/halt switch 
// single step switch 

// instruction/sequence step select switch 
// clock mode 


unsigned MON::SA=0; 

unsigned MON::SCL_ENAB=1; 
running) 


// "standby allowed" SW; 0=NO (full power), 1=YES (low power) 
// "scaler enabled" SW; 0=NO (scaler halted), 1=YES (scaler 


void MON::displayAGC() 

{ 

char buf[100]; 

cout « "AGC4 SIMULATOR 1.16-" << endl; 

sprintf(buf," TP: %-5s F17:%ld F13:%ld F10:%ld SCL:%06o", 

TPG::tpTypestring[TPG::register_SG.read()], 

SCL::register_F17.read(), SCL::register_F13.read(), SCL::register_F10.read(), 
SCL::register_SCL.read()) ; 
cout << buf << endl; 


sprintf(buf, " STA:%01o STB:%01o 
LOOPCTR:%01o", 

SEQ::register_STA.read() , SEQ 
SEQ::register_BRl.read() , SEQ 
SEQ::register_SNI.read(), ALU 
cout << buf << endl; 


BR1:%0lo BR2:%0lo SNI:%01o CI:%01o 

: register_STB.read() , 

: register_BR2.read() , 

: register_CI.read(), SEQ::register_LOOPCTR.read()) 


sprintf(buf, " RPCELL:%05o INHl:%01o INH:%01o UpCELL:%03o DnCELL:%03o SQ:%02o %-6 

%-6s", 

INT::register_RPCELL.read(), INT::register_INHINTl.read(), 

INT::register_INHINT.read(), 

CTR::register_UpCELL.read(), CTR::register_DnCELL.read(), 

SEQ::register_SQ.read(), SEQ::instructionstring[SEQ::register_SQ.read()], 

CPM::subseqString[SEQ::glbl_subseq]); 
cout << buf << endl; 


sprintf(buf, " CP:%s", SEQ::getControlPulses()); 

cout << buf << endl; 








// For the G register, bit 15 comes from register G15; the other bits (16, 14-1) 

come 

// from register G. 

sprintf(buf, " S: %04o G:%06o P:%06o (r)RUN :%ld (p)PURST:%ld 

(F2,F4)FCLK:%ld", 

ADR::register_S.read(), 

(MBF::register_G.read() & 0137777) | (PAR::register_G15.read() << 14), 

PAR::register_P.read(), 

MON::RUN, MON::PURST, MON::FCLK); 
cout << buf << endl; 

sprintf(buf, " RBU:%06o WBU:%06o P2:%01o (s)STEP:%ld", 

BUS::glbl_READ_BUS & 0177777, BUS::glbl_WRITE_BUS & 0177777, 

PAR::register_P2.read(), MON::STEP); 
cout << buf << endl; 

char parityAlm = ' ' ; 

if(PAR::register_PALM.read()) parityAlm = '*'; 

sprintf(buf, " B:%06o CADR:%06o (n)INST:%ld PALM:[%c]", 

ALU::register_B.read(), ADR::getEffeetiveAddress(), MON::INST, parityAlm); 
cout << buf << endl; 

sprintf(buf, " X:%06o Y:%06o U:%06o (a)SA :%ld", 

ALU::register_X.read(), ALU::register_Y.read(), ALU::register_U.read(), MON::SA) 
cout << buf << endl; 

cout << endl; 

sprintf(buf, "00 A:%06o 15 BANK:%02o 36 TIMEl:%06o 53 OPT Y:%06o", 

CRG::register_A.read(), ADR::register_BNK.read() , MEM::readMemory(03 6) , 

MEM::readMemory(053)) ; 

cout << buf << endl; 

sprintf(buf, "01 Q:%06o 16 RELINT:%6s 37 TIME3:%06o 54 TRKR X:%06o", 

CRG::register_Q.read()," ", MEM::readMemory(037), MEM::readMemory(054)); 
cout << buf << endl; 

sprintf(buf, "02 Z:%06o 17 INHINT:%6s 40 TIME4:%06o 55 TRKR Y:%06o", 

CRG::register_Z.read(),"", MEM::readMemory(040), MEM::readMemory(055)); 
cout << buf << endl; 

sprintf(buf, "03 LP:%06o 20 CYR:%06o 41 UPLINK:%06o 56 TRKR Z:%06o", 

CRG::register_LP.read(), MEM::readMemory(020), MEM::readMemory(041), 

MEM::readMemory(056)); 

cout << buf << endl; 

sprintf(buf, "04 IN0:%06o 21 SR:%06o 42 OUTCR1:%06o", 

INP::register_IN0.read(), MEM::readMemory(021), MEM::readMemory(042)); 
cout << buf << endl; 


char progAlm = ' ' ; 

if(OUT::register_OUTl.read() & 0400) progAlm = '*'; 


char compFail = ' '; // also called 'check fail' and 

if(OUT::register_OUTl.read() & 0100) compFail = '*'; 


' oper err' 


char keyRels = ' '; 

if(OUT::register_OUTl.read() & 020) keyRels = '*'; 


char upTl = ' '; 

if(OUT::register_OUTl.read() & 004) upTl = '*'; 

char comp = ' '; // also called comp acty 

if(OUT::register_OUTl.read() & 001) comp = '*'; 


sprintf(buf, "05 INl:%06o 22 CYL:%06o 43 OUTCR2:%06o CF:[%c%c]:KR [%c]:PA", 

INP::register_INl.read(), MEM::readMemory(022), MEM::readMemory(043), 
compFail, keyRels, progAlm); 
cout << buf << endl; 

sprintf(buf, "06 IN2:%06o 23 SL:%06o 44 PIPA X:%06o", 

INP::register_IN2.read(), MEM::readMemory(023), MEM::readMemory(044)); 
cout << buf << endl; 

sprintf(buf, "07 IN3:%06o 24 ZRUPT:%06o 45 PIPA Y:%06o A:[%c%c] M:[%c%c]", 

INP::register_IN3.read(), MEM::readMemory(024), MEM::readMemory(045), 




upTl, comp, DSP::MD1, DSP::MD2); 


cout << buf << endl; 

char fc = ' if(DSP::flash) fc = ' 

sprintf(buf, "10 OUTO: 25 BRUPT:%06o 46 PIPAZ:%06o V:[%c%c] N:[%c%c] 

MEM::readMemory(025), MEM::readMemory(046), 

DSP::VD1, DSP::VD2, DSP::ND1, DSP::ND2, fc) ; 
cout << buf << endl; 

sprintf(buf, "11 OUTl:%06o 26 ARUPT:%06o 47 CDU X:%06o R1:[ %c%c%c%c%c%c ] 

OUT::register_OUTl.read() , MEM::readMemory(026), MEM::readMemory(047) , 

DSP::R1S, DSP::R1D1, DSP::R1D2, DSP::R1D3, DSP::R1D4, DSP::R1D5); 
cout << buf << endl; 

sprintf(buf, "12 OUT2:%06o 27 QRUPT:%06o 50 CDU Y:%06o R2:[ %c%c%c%c%c%c ] 

OUT::register_OUT2.read(), MEM::readMemory(027), MEM::readMemory(050), 

DSP::R2S, DSP::R2D1, DSP::R2D2, DSP::R2D3, DSP::R2D4, DSP::R2D5); 
cout << buf << endl; 

sprintf(buf, "13 OUT3:%06o 34 OVCTR:%06o 51 CDU Z:%06o R3:[ %c%c%c%c%c%c ] 

OUT::register_OUT3.read(), MEM::readMemory(034) , MEM::readMemory(051), 

DSP::R3S, DSP::R3D1, DSP::R3D2, DSP::R3D3, DSP::R3D4, DSP::R3D5); 
cout << buf << endl; 

sprintf(buf, "14 OUT4:%06o 35 TIME2:%06o 52 OPT X:%06o", 

OUT::register_OUT4.read(), MEM::readMemory(035), MEM::readMemory(052)); 
cout << buf << endl; 

} 



OUT (OUT.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* OUT - OUTPUT REGISTER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: OUT.h 

•k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Output Registers for the Block 1 Apollo Guidance Computer prototype (AGC4). 

•k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef OUT_H 
#define OUT_H 

#include "reg.h" 


class regOutl : public reg 

{ 

public: regOutl() : reg(16, "%06o") ( } 

}; 

class regOut2 : public reg 

{ 

public: regOut2() : reg(16, "%06o") { } 

}; 

class regOut3 : public reg 

{ 

public: regOut3() : reg(16, "%06o") { } 

}; 

class regOut4 : public reg 

i 

public: regOut4() : reg(16, "%06o") ( } 

l; 

class OUT 

{ 

public: 

static void execWP_GENRST() ; 
static void execWP_WA10() ; 
static void execRP_RAll() ; 
static void execWP_WAll() ; 
static void execRP_RA12() ; 
static void execWP_WA12(); 
static void execRP_RA13() ; 
static void execWP_WA13() ; 
static void execRP_RA14() ; 
static void execWP_WA14() ; 


static regOutl register_OUTl; // output register 1 
static regOut2 register_OUT2; // output register 2 
static regOut3 register_OUT3; // output register 3 
static regOut4 register_OUT4; // output register 4 

} ; 


#endif 




OUT (OUT.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* OUT - OUTPUT REGISTER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: OUT.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


k / 


#include 

"OUT.h" 





#include 

" SEQ.h" 





#include 

"BUS.h" 





#include 

"DSP.h" 





#include 

"ADR.h" 





#include 

"PAR.h" 





#include 

<stdlib.h> 





regOut1 

OUT: : register. 

_OUTl; 

// 

output 

register 

regOut2 

OUT: : register. 

_OUT2; 

// 

output 

register 

regOut3 

OUT: : register. 

_OUT3; 

// 

output 

register 

regOut4 

OUT: : register. 

_OUT 4; 

// 

output 

register 


k 


k k 


// Writing to OUTO loads the 


selected DSKY display 


register. 


void OUT::execWP_GENRST() 

{ 

DSP: : clearOutO () ; 

register_OUTl.write(0) ; 
register_OUT2.write(0) ; 

} 

void OUT: :execWP_WA10 () 

{ 

DSP::decodeRelayWord(BUS::glbl_WRITE_BUS); 

} 


void OUT: :execRP_RAll () 

{ 

BUS::glbl_READ_BUS = register_OUTl.read(); 

} 


void OUT: :execWP_WAll () 

{ 

register_OUTl.write(BUS::glbl_WRITE_BUS); 

} 


void OUT : : execRP_RA12 () 

{ 

BUS::glbl_READ_BUS = register_OUT2.read(); 

} 


void OUT: :execWP_WA12 () 

{ 

register_OUT2.write(BUS::glbl_WRITE_BUS); 

} 




void OUT: : execRP_RA13 () 

t 

BUS::glbl_READ_BUS = register_OUT3.read() 

} 


void OUT : : execWP_WA13 () 

{ 

register_OUT3.write(BUS::glbl_WRITE_BUS); 

} 


void OUT : : execRP_RA14 () 

{ 

BUS::glbl_READ_BUS = register_OUT4.read() 

} 


void OUT; :execWP_WA14 () 

{ 

register_OUT4.write(BUS::glbl_WRITE_BUS); 

} 



PAR (PAR. h) 
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* PAR - PARITY GENERATION AND TEST subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: PAR. h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Parity Generation and Test for the Block 1 Apollo Guidance Computer 

* prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef PAR_H 
#define PAR_H 

#include "reg.h" 


class regG15 : public reg 

{ 

public: 

// memory buffer register bit 15 (parity) only 
regG15() : reg(l, "%01o") { } 

}; 


class regP : public reg 

{ 

public: regP() : reg(16, "%06o") { } 

}; 


class regP2 : public reg 

{ 

public: 

regP2() : reg(l, "%01o") { } 

}; 


class regPALM : public reg 

{ 

public: 

// parity alarm FF (set on TP) 
regPALM() : reg(l, "%01o") { } 

} ; 


class PAR 

{ 

public: 


static 

void 

execRP_WE () ; 

static 

void 

execWP_WP () ; 

static 

void 

execWP_WPx(); 

static 

void 

execWP_WP2() ; 

static 

void 

execWP_RP2() ; 

static 

void 

execWP_GP () ; 

static 

void 

execWP_SBWG(); 

static 

void 

execWP_WGx(); 

static 

void 

execWP_CLG(); 

static 

void 

execWP_GENRST() 



static void execWP_TP () ; 

static void CLR_PALM(); // asynchronous clear for PARITY ALARM 


// memory buffer register bit 15; the rest of the 
// memory buffer register is defined in MBF 
static regG15 register_G15; 

static regP2 register_P2; 
static regP register_P; 

static regPALM register_PALM; 


static unsigned genl_15Parity(unsigned r); 
static unsigned genP_15Parity(unsigned r) ; 

static unsigned conv_WP[]; 

}; 

#endif 



PAR (PAR.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* PAR - PARITY GENERATION AND TEST subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: PAR.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "PAR.h" 

#include "SEQ.h" 

#include "BUS.h" 

#include "MBF.h" 

#include "ADR.h" 

#include "MEM.h" 

regP PAR::register_P; 
regP2 PAR::register_P2; 

regG15 PAR::register_G15; // memory buffer register bit 15 
regPALM PAR::register_PALM; // PARITY ALARM FF 

unsigned PAR::conv_WP[] = 

{ 

BX, SG, B14, B13, B12, Bll, BIO, B9, B8, B7, B6, B5, B4, B3, B2, B1 

}; 


void PAR::execRP_WE() 

{ 

// Write parity into memory. 

MEM::MEM_PARITY_BUS = PAR::register_G15.read(); 


// IMPLEMENTATION NOTE: It has been empirically determined that the following 
// control signals are mutually exclusive (there is never more than one of these 
// generated at any time): 

// GP, WGX, RP2, SBWG, CLG 


// NOTE: WP clears register_P before writing into it. Strictly speaking, WPx isn't 
// supposed to clear the register (should OR into the register), but in the counter 
// sequences where WPx is used, register_P is always cleared in the previous TP by 
// asserting WP with default zeroes on the write bus. 


void 

{ 


PAR::execWP_WP() 


// set all bits except parity bit 
register_P.writeShift(BUS::glbl_WRITE_BUS, PAR::conv_WP); 

// now set parity bit; in the actual AGC, this is 
// a single operation, 
if(SEQ::isAsserted(RG)) 

register_P.writeField(16, 16, register_G15.read()); 

else 

register_P.writeField(16, 16, 0); // clear parity bit 


void PAR::execWP_WPx() 

{ 

// set all bits except parity bit 
register_P.writeShift(BUS::glbl_WRITE_BUS, PAR::conv_WP); 

// now set parity bit; in the actual AGC, this is 
// a single operation, 
if(SEQ::isAsserted(RG)) 

register_P.writeField(16, 16, register_G15.read()); 


else 



register_P.writeField(16, 16, 0); // clear parity bit 


} 


void PAR::execWP_WP2() 

{ 

register_P2.write(genl_15Parity(register_P.read())); 

} 

void PAR::execWP_RP2() 

{ 

register_G15.write(register_P2.read()); 

} 

void PAR::execWP_GP() 

{ 

register_G15.write(genl_15Parity(register_P.read())); 

} 

void PAR: : execWP_SBWG () 

{ 

register_G15.write(MEM::MEM_PARITY_BUS); // load memory bit 16 (parity) into G15 

} 

void PAR::execWP_WGx() 

{ 

// This is only used in PINC, MINC, and SHINC. Does not clear G 
// register; writes (ORs) into G from RWBus and writes into parity 
// from 1-15 generator. All done in one operation, although I show 
// it in two steps here. The sequence calls CLG in a previous TP. 
register_G15.write(PAR::genl_15Parity(register_P.read())) ; 

} 

void PAR::execWP_CLG() 

{ 

register_G15.write(0); 

} 

void PAR::execWP_GENRST() 

{ 

register_PALM.write(0); 

} 

void PAR::execWP_TP() 

{ 

if(ADR::GTR_27() && genP_15Parity(register_P.read())) 
register_PALM.write(genP_15Parity(register_P.read())); 

} 


void PAR::CLR_PALM() 

{ 

// asynchronous clear for PARITY ALARM (from MON) 
register_PALM.clear() ; 

} 


unsigned PAR::genl_15Parity(unsigned r) 
{ 


//check the lower 15 bits of 'r' and return the odd parity; 
//bit 16 is ignored, 
unsigned evenParity = 


(1 & (r»0) ) 

A (lS(r»l) 

) A (Is (r»2) ) 

A (IS 

(r>>3)) A 

(IS (r»4) ) 

A (IS (r>>5) 

) A (IS (r»6) ) 

A (IS 

(r»7 ) ) A 

(IS (r»8) ) 

A {IS (r»9) 

) A (ls(r»10)) 

A (IS 

(r»ll)) A 

(IS (r»12) ) 

A (lS(r»13 

)) A (ls(r»14)) 

; 


-evenParity 

S 1; // odd 

parity 




unsigned PAR::genP_15Parity(unsigned r) 

{ 

//check all 16 bits of 'r* and return the odd 
unsigned evenParity = 

(1& (r»0) ) A (1& (r»l) ) A (1 & (r»2 ) ) 

(1& (r»4 ) ) A (1& (r»5) ) A (l&(r»6)) 

(1& (r»8) ) A (1& (r»9) ) A (l&(r»10) 


parity 

A (1& (r»3) ) 

A (1& (r»7) ) 

) A (l&(r»ll)) 



(l&(r»12)) A (l&(r»13)) A (l&(r»14)) 
return -evenParity & 1; // odd parity 


(1& (r»15) ) 



Registers (reg.h) 


#ifndef reg_H 
#define reg_H 

#include <iostream.h> 

#include <string.h> 

#include <stdio.h> 

class reg 

{ 

public: 

virtual unsigned read() { return mask & slaveVal; } 

virtual void write(unsigned v) { load = true; masterVal = mask & v; } 

// asynchronous clear 

void clear () { slaveVal = 0; } 

// load is set when a register is written into. 

void clk() { if(load) slaveVal = masterVal; load = false; } 

unsigned readField(unsigned msb, unsigned lsb); // bitfield numbered n - 1 

void writeField(unsigned msb, unsigned lsb, unsigned v); // bitfield numbered n - 1 

// Write a 16-bit word (in) into the register. Transpose the bits according to 
// the specification (ib). 

void writeShift(unsigned in, unsigned* ib); 

// Return a shifted 16-bit word. Transpose the 'in' bits according to 
// the specification 'ib'. 'Or' the result to out and return the value, 
unsigned shiftData(unsigned out, unsigned in, unsigned* ib); 

unsigned outmask() { return mask; } 

protected: 

reg(unsigned s, char* fs) 

: size(s), mask(0), masterVal(0), slaveVal(0), fmtString(fs), load(false) 

{ mask = buildMask (size);} 

static unsigned buildMask(unsigned s); 

friend ostreamS operator << (ostreamS os, const reg& r) 

{ char buf[32]; sprintf(buf, r.fmtString, r.slaveVal); os << buf; return os; } 


private: 

unsigned 

unsigned 

unsigned 

unsigned 

char* 

bool 


size; // bits 
masterVal; 
slaveVal; 
mask; 

fmtString; 

load; 


}; 


reg(); // prevent instantiation of default constructor 


#endif 



Registers (reg.cpp) 


#include "reg.h" 

#include <math.h> 

#include "BUS.h" 

unsigned reg:ibuildMask(unsigned s) 

{ 

unsigned msk = 0; 

for(unsigned i=0; i<s; i++) 

{ 

msk = (msk << 1) | 1; 

} 

return msk; 

} 

unsigned reg::readField(unsigned msb, unsigned lsb) 

{ 

return (slaveVal >> (lsb-1)) & buildMask((msb-lsb)+1); 

} 


void reg::writeField(unsigned msb, unsigned lsb, unsigned v) 

{ 

load = true; 

unsigned fmask = buildMask((msb-lsb)+1) << (lsb-1); 

v = (v << (lsb-1)) & fmask; 

masterVal = (masterVal &(~fmask)) | v; 

} 


void reg::writeShift(unsigned in, unsigned* ib) 

{ 

load = true; 

unsigned out = masterVal; 

// iterate through each bit of the output word, copying in bits from the input 
// word and transposing bit position according to the specification (ib) 
for(unsigned i=0; i<16; i++) 

{ 

if(ib[i] == BX) continue; // BX is 'don't care', so leave it alone 

// zero the output bit at 'ob', where ob specifies a bit 
// position (numbered 16-1, where 1 is lsb) 
unsigned ob = 16-i; 

unsigned obmask = 1 << (ob - 1); // create mask for output bit 
out &= ~obmask; 

if(ib[i] == DO) continue; // DO is 'force the bit to zero' 

// copy input bit ib[i] to output bit 'ob', where ib and ob 
// specify bit positions (numbered 16-1, where 1 is lsb) 
unsigned ibmask = 1 << (ib[i] -1); // create mask for input bit 
unsigned inbit = in & ibmask; 

int shift = ib[i]-ob; 
if(shift<0) 

inbit = inbit << abs (shift); 
else if(shift > 0) 

inbit = inbit >> shift; 
out |= inbit; 


masterVal 


out; 


unsigned reg::shiftData(unsigned out, unsigned in, unsigned* ib) 

{ 

// iterate through each bit of the output word, copying in bits from the input 
// word and transposing bit position according to the specification (ib) 
for(unsigned i=0; i<16; i++) 

{ 

if(ib[i] == BX) continue; // BX is 'don't care', so leave it alone 

// zero the output bit at 'ob', where ob specifies a bit 
// position (numbered 16-1, where 1 is lsb) 
unsigned ob = 16-i; 



unsigned obmask = 1 << (ob - 1); // create mask for output bit 
out &= ~obmask; 

if(ib[i] == DO) continue; // DO is 'force the bit to zero' 

// copy input bit ib[i] to output bit 'ob', where ib and ob 
// specify bit positions (numbered 16-1, where 1 is lsb) 
unsigned ibmask = 1 << (ib[i] -1); // create mask for input bit 
unsigned inbit = in & ibmask; 

int shift = ib[i]-ob; 
if (shiftcO) 

inbit = inbit << abs (shift); 
else if (shift > 0) 

inbit = inbit >> shift; 
out |= inbit; 

} 


return out; 



SCL (SCL.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* SCL - SCALER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SCL.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Scaler for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

★ 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef SCL_H 
#define SCL_H 


#include "reg.h" 

class regF17 : public reg 

{ 

public: 

regF17() : reg(2, "%01o") { } 

}; 

class regF13 : public reg 

{ 

public: 

regF13() : reg(2, "%01o") { } 

}; 

class regFlO : public reg 

{ 

public: 

regFlO() : reg(2, "%01o") { } 

}; 


class regSCL : public reg 

{ 

public: 

regSCLO : reg(17, "%06o") { } 

}; 


class SCL 

{ 

public: 

static void doexecWP_SCL() ; 
static void doexecWP_F17(); 
static void doexecWP_F13(); 
static void doexecWP_F10(); 

static regSCL register_SCL; 

// Normally outputs 'O'; outputs '1' for one 
// clock pulse at the indicated frequency, 
static unsigned F17x(); // 0.78125 Hz scaler output 

static unsigned F13x(); // 12.5 Hz scaler output 

static unsigned F10x(); // 100 Hz scaler output 

static regF17 register_F17; 
static regF13 register_F13; 
static regFlO register_F10; 

}; 



#endif 



SCL (SCL.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* SCL - SCALER subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SCL.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "SCL.h" 

#include "CTR.h" 

#include "MON.h" 


★ ★ * 


k k k 


k k k k 


k k k k 


k k k 


k k k 


k 


k k 


regSCL SCL::register_SCL; 
regF17 SCL::register_F17; 
regF13 SCL::register_F13; 
regFlO SCL::register_F10; 

enum oneShotType { // **inferred; not defined in orignal R393 AGC4 spec. 

WAIT_FOR_TRIGGER=0, 

OUTPUT_PULSE=1, // LSB (bit 1) is the output bit for the one-shot 

WAIT_FOR_RESET=2 


void SCL::doexecWP_F17() 

{ 

int bit = SCL::register_SCL.readField(17,17); 
switch(register_Fl7.read()) 

{ 

case WAIT_FOR_TRIGGER: if(bit==l) register_F17.write(OUTPUT_PULSE); break 

case OUTPUT_PULSE: register_F17.write(WAIT_FOR_RESET); break; 

case WAIT_FOR_RESET: if(bit==0) register_F17.write(WAIT_FOR_TRIGGER); break; 

default: ; 



void SCL::doexecWP_F13() 

{ 

int bit = SCL::register_SCL.readField(13,13); 
switch(register_F13.read()) 

{ 

case WAIT_FOR_TRIGGER: if(bit==l) register_F13.write(OUTPUT_PULSE); break 

case OUTPUT_PULSE: register_F13.write(WAIT_FOR_RESET); break; 

case WAIT_FOR_RESET: if(bit==0) register_F13.write(WAIT_FOR_TRIGGER); break; 

default: ; 



void SCL::doexecWP_F10() 

{ 

int bit = SCL::register_SCL.readField(10,10); 
switch(register_F10.read()) 

{ 

case WAIT_FOR_TRIGGER: if(bit==l) register_F10.write(OUTPUT_PULSE); break 

case OUTPUT_PULSE: register_F10.write(WAIT_FOR_RESET); 


CTR: 

pcUp 

TIME1] 

= 1 

CTR: 

pcUp[TIME3] 

= 1 

CTR: 

pcUp 

TIME4] 

= 1 

break; 




case WAIT_FOR_RESET: if(bit==0) register_F10.write(WAIT_FOR_TRIGGER); break; 

default: ; 

} 


unsigned SCL::F17x() 

{ 

return register_F17.readField(1,1); 




} 


unsigned SCL::F13x() 

{ 

return register_F13.readField(1,1) ; 

} 

unsigned SCL::F10x() 

{ 

return register_F10.readField(1,1) ; 

} 

void SCL::doexecWP_SCL() 

{ 

if(MON::SCL_ENAB) // if the scaler is enabled 

{ 

//write ( (read () + 1) % outmask(J); 
register_SCL.write((register_SCL.read() + 1)) 




SEQ (SEQ.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* SEQ - SEQUENCE GENERATOR subsystem 

k 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SEQ.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Sequence Generator for the Block 1 Apollo Guidance Computer prototype (AGC4). 

k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

* 

* NOTES: 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#ifndef SEQ H 
#define SEQ H 

#include "reg.h" 


#define MAXPULSES 15 

#define MAX_IPULSES 5 // no more than 5 instruction-generated pulses active at any time 


enum cpType { // **inferred; not defined in orignal R393 AGC4 spec. 
NO_PULSE=0, 


// OUTPUTS FROM SUBSYSTEM A 


Cl 

=i. 

// 

Carry in 

CLG 

=2, 

// 

Clear G 

CLCTR 

=3, 

// 

Clear loop counter 

CTR 

= 4, 

// 

Loop counter 

GP 

= 5, 

// 

Generate Parity 

KRPT 

= 6, 

// 

Knock down Rupt priority 

NISQ 

= 7, 

// 

New instruction to the SQ register 

RA 

= 8, 

// 

Read A 

RB 

= 9, 

// 

Read B 

RBI 4 

= 10, 

// 

Read bit 14 

RC 

=11, 

// 

Read C 

RG 

= 12, 

// 

Read G 

RLP 

= 13, 

// 

Read LP 

RP2 

= 14, 

// 

Read parity 2 

RQ 

= 15, 

// 

Read Q 

RRPA 

= 16, 

// 

Read RUPT address 

RSB 

= 17, 

// 

Read sign bit 

RSCT 

= 18, 

// 

Read selected counter address 

RU 

= 19, 

// 

Read sum 

RZ 

=2 0, 

// 

Read Z 

R1 

=21, 

// 

Read 1 

R1C 

=22, 

// 

Read 1 complimented 

R2 

=23, 

// 

Read 2 

R22 

=2 4, 

// 

Read 22 

R2 4 

=25, 

// 

Read 24 

ST1 

=2 6, 

// 

Stage 1 

ST2 

=2 7, 

// 

Stage 2 

TMZ 

=2 8, 

// 

Test for minus zero 

TOV 

=2 9, 

// 

Test for overflow 

TP 

= 30, 

// 

Test parity 

TRSM 

= 31, 

// 

Test for resume 

TSGN 

= 32, 

// 

Test sign 

TSGN2 

=33, 

// 

Test sign 2 

WA 

=34, 

// 

Write A 

WALP 

=35, 

// 

Write A and LP 

WB 

=36, 

// 

Write B 

W Gx 

=37, 

// 

Write G (do not reset) 



WLP 

=38, 

// 

Write 

LP 



wove 

=39, 

// 

Write 

overflow 

counter 

WOVI 

=40, 

// 

Write 

overflow 

RUPT inhibit 

WOVR 

=41, 

// 

Write 

overflow 


WP 

= 42, 

// 

Write 

P 



WPx 

= 43, 

// 

Write 

P (do 

not 

reset) 

WP2 

= 44, 

// 

Write 

P2 



WQ 

= 45, 

// 

Write 

Q 



WS 

= 4 6, 

// 

Write 

S 



W X 

= 47, 

// 

Write 

X 



WY 

= 48, 

// 

Write 

Y 



WYx 

= 49, 

// 

Write 

Y (do 

not 

reset) 

WZ 

= 50, 

// 

Write 

Z 




// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM B ONLY; 

// NOT USED OUTSIDE CPM 

RSC =51, // Read special and central (output to B only, not outside CPM) 

WSC =52, // Write special and central (output to B only, not outside CPM) 

WG =53, // Write G (output to B only, not outside CPM) 

// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM C ONLY; 

// NOT USED OUTSIDE CPM 

SDV1 =54, // Subsequence DV1 is currently active 

SMP1 =55, // Subsequence MP1 is currently active 

SRSM3 =56, // Subsequence RSM3 is currently active 

// EXTERNAL OUTPUTS FROM SUBSYSTEM B 


// 







RAO 

= 57, 

// 

Read 

register at 

address 0 (A) 

RA1 

= 58, 

// 

Read 

register at 

address 1 (Q) 

RA2 

= 59, 

// 

Read 

register at 

address 2 (Z) 

RA3 

= 60, 

// 

Read 

register at 

address 3 (LP) 

RA4 

= 61, 

// 

Read 

register at 

address 4 


RA5 

= 62, 

// 

Read 

register at 

address 5 


RA6 

= 63, 

// 

Read 

register at 

address 6 


RA7 

= 64, 

// 

Read 

register at 

address 7 


RA1 0 

= 65, 

// 

Read 

register at 

address 10 

(octal) 

RA11 

= 66, 

// 

Read 

register at 

address 11 

(octal) 

RA12 

= 67, 

// 

Read 

register at 

address 12 

(octal) 

RA13 

= 68, 

// 

Read 

register at 

address 13 

(octal) 

RA14 

= 69, 

// 

Read 

register at 

address 14 

(octal) 

RBK 

=70, 

// 

Read 

BNK 



WAO 

=71, 

// 

Write 

register at 

address 0 

(A) 

WA1 

= 72, 

// 

Write 

register at 

address 1 

(Q) 

WA2 

= 73, 

// 

Write 

register at 

address 2 

(Z) 

WA3 

= 74, 

// 

Write 

register at 

address 3 

(LP) 

WA10 

= 75, 

// 

Write 

register at 

address 10 

(octal 

WA11 

= 76, 

// 

Write 

register at 

address 11 

(octal 

WA12 

= 77, 

// 

Write 

register at 

address 12 

(octal 

WA13 

= 78, 

// 

Write 

register at 

address 13 

(octal 

WA14 

= 79, 

// 

Write 

register at 

address 14 

(octal 

WBK 

= 80, 

// 

Write 

BNK 



WGn 

= 81, 

// 

Write 

G (normal gates)** 


W2 0 

= 82, 

// 

Write 

into CYR 



W21 

= 83, 

// 

Write 

into SR 



W22 

= 84, 

// 

Write 

into CYL 



W23 

= 85, 

// 

Write 

into SL 




// THESE ARE 

THE : 

LEFTOVERS — THEY'RE PROBABLY USED IN SUBSYSTEM 

// 





GENRST 

= 86, 

// 

General Reset** 

CLINH 

= 87, 

// 

Clear 

INHINT** 

CLINH1 

= 88, 

// 

Clear 

INHINT1* * 

CLSTA 

=89, 

// 

Clear 

state counter A (STA)** 

CLSTB 

= 90, 

// 

Clear 

state counter B (STB)** 

CLISQ 

= 91, 

// 

Clear 

SNI** 

CLRP 

= 92, 

// 

Clear 

RPCELL* * 

INH 

= 93, 

// 

Set INHINT** 

RPT 

= 94, 

// 

Read RUPT opcode ** 

SBWG 

= 95, 

// 

Write 

G from memory 

SETSTB 

= 96, 

// 

Set the ST1 bit of STB 

WE 

= 97, 

// 

Write 

E-MEM from G 

WPCTR 

= 98, 

// 

Write 

PCTR (latch priority counter sequence)** 

WSQ 

= 99, 

// 

Write 

SQ 



WSTB 
R2 000 


= 100 , 
= 101 , 


// Write stage counter B (STB) 
// Read 2000 ** 


// INSTRUCTIONS 

// Op Codes, as they appear in the SQ register, 
enum instruction { 


// The 

code 

in the SQ 

register 

is the same as the op code 

for 

these 


// four 

instructions. 






TC 

=00, 

// 00 

TC K 

Transfer Control 


1 

MCT 

CCS 

=01, 

// 01 

CCS K 

Count, Compare, and 

Skip 

2 

MCT 

INDEX 

=02, 

// 02 

INDEX K 



2 

MCT 

XCH 

=03, 

// 03 

XCH K 

Exchange 


2 

MCT 


// The SQ register code is the op code + 010 (octal). This happens because all 

// of these instructions have bit 15 set (the sign (SG) bit) while in memory. When the 

// instruction is copied from memory to the memory buffer register (G) to register 


// B, 

the SG 

bit moves 

from bit 15 to 

bit 16 and the sign is 

copied 

back into 

// 15 

(US) . 

Therefore, 

the CS op code 

(04) becomes (14), and 

so on. 


CS 

=014, 

// 04 

CS K 

Clear and Subtract 


2 MCT 

TS 

=015, 

// 05 

TS K 

Transfer to Storage 


2 MCT 

AD 

=016, 

// 06 

AD K 

Add 


2 or 3 MCT 

MASK 

=017, 

// 07 

MASK K 

Bitwise AND 


2 MCT 


// These are extended instructions. They are accessed by executing an INDEX 5777 
// before each instruction. By convention, address 5777 contains 47777. The INDEX 
// instruction adds 47777 to the extended instruction to form the SQ op code. For 
// example, the INDEX adds 4 to the 4 op code for MP to produce the 11 (octal; the 
// addition generates an end-around-carry). SQ register code (the 7777 part is a 
// negative zero). 


MP 

=011, 

// 

04 

MP K 

Multiply 

10 MCT 

DV 

= 012, 

// 

05 

DV K 

Divide 

18 MCT 

SU 

=013, 

// 

06 

SU K 

Subtract 

4 or 5 MCT 


enum subseq { 

TC0 =0, 
CCS0 =1, 
CCS1 =2, 
NDX0 =3, 
NDX1 =4, 
RSM3 =5, 
XCH0 =6, 
CS0 =7, 
TS0 =8, 
ADO =9, 
MASK0 =10, 
MP0 =11, 
MP 1 =12, 

MP3 =13, 
DV0 =14, 
DV1 =15, 
SU0 =16, 
RUPT1 =17, 
RUPT3 =18, 
STD2 =19, 
PINC0 =20, 
MINC0 =21, 
SHINC0 =22, 
NO_SEQ =23 


enum scType { // identifies subsequence for a given instruction 
SUB0=0, // ST2=0, ST1=0 

SUB1=1, // ST2=0, ST1=1 

SUB2=2, // ST2=1, ST1=0 

SUB3=3 // ST2=1, ST1=1 

}; 

enum brType { 

BR00 =0, // BR1=0, BR2=0 

BR01 =1, // BR1=0, BR2=1 



BRIO =2, // BR1=1, BR2=0 

BR11 =3, // BR1—1, BR2=1 

NO_BR =4 //NO BRANCH 

}; 

const int GOPROG =02000; // bottom address of fixed memory 

class regSQ : public reg 
{ 

public: 

regSQ() : reg(4, "%02o") ( } 

}; 

class regSTA : public reg 
{ 

public: 

regSTAO : reg(2, "%01o") { } 

}; 

class regSTB : public reg 
{ 

public: 

regSTBO : reg(2, "%01o") { } 

}; 

class regBRl : public reg 

{ 

public: 

regBRl() : reg(l, "%01o") { } 

} ; 

class regBR2 : public reg 

{ 

public: 

regBR2() : reg(l, "%01o") { } 

}; 

class regCTR : public reg 

{ 

public: 

regCTR() : reg(3, "%01o") { } 

}; 


class regSNI : public reg 

{ 

public: regSNI () : reg(l, "%01o") { } 

}; 

class SEQ 
{ 

public: 

static void execWP_GENRST() ; 
static void execWP_WSQ() ; 
static void execWP_NISQ() ; 
static void execWP_CLISQ() ; 
static void execWP_STl() ; 
static void execWP_ST2(); 
static void execWP_TRSM() ; 
static void execWP_CLSTA() ; 
static void execWP_WSTB(); 
static void execWP_CLSTB() ; 
static void execWP_SETSTB(); 
static void execWP_TSGN(); 
static void execWP_TOV() ; 
static void execWP_TMZ() ; 
static void execWP_TSGN2(); 
static void execWP_CTR() ; 
static void execWP_CLCTR(); 


static regSNI register_SNI; // select next intruction flag 

static cpType glbl_cp[MAXPULSES]; // current set of asserted control pulses 

(MAXPULSES) 

static char* cpTypeString[] ; 



// Test the currently asserted control pulses; return true if the specified 

// control pulse is active. 

static bool isAsserted(cpType pulse); 

// Return a string containing the names of all asserted control pulses, 
static char* getControlPulses(); 

static subseq glbl_subseq; // currently decoded instruction subsequence 

static regSQ register_SQ; // instruction register 

static regSTA register_STA; // stage counter A 

static regSTB register_STB; // stage counter B 

static regBRl register_BRl; // branch registerl 

static regBR2 register_BR2; // branch register2 

static regCTR register_LOOPCTR; // loop counter 

static char* instructionstring[]; 

}; 

#endif 



SEQ (SEQ.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* SEQ - SEQUENCE GENERATOR subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: SEQ.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "SEQ.h" 

#include "ADR.h" 

#include "BUS.h" 


regSNI SEQ::register_SNI; 
cpType SEQ::glbl_cp[]; 


// select next intruction flag 

// current set of asserted control pulses (MAXPULSES) 


regSQ SEQ::register_SQ; 
regSTA SEQ::register_STA; 
regSTB SEQ::register_STB; 
regBRl SEQ::register_BRl; 
regBR2 SEQ::register_BR2; 
regCTR SEQ::register_LOOPCTR; 
subseq SEQ::glbl_subseq; 


// instruction register 
// stage counter A 
// stage counter B 
// branch registerl 
// branch register2 
// loop counter 

// currently decoded instruction subsequence 


char* SEQ::instructionstring[] = 

{ 

" TC ", 

"CCS", 

"INDEX", 

"XCH", 

*• k k k H 
H k k k H 

11 k k k 11 
11 k k k 11 
11 k k k 11 

"MP", 

"DV", 

"SU", 

"CS", 

"TS", 

"AD", 

"MASK" 

l; 


char* SEQ::cpTypeString[ ] = 

{ 

"NO_PULSE", 

// OUTPUTS FROM SUBSYSTEM A 

"Cl", "CLG", "CLCTR", "CTR", ”GP", "KRPT", "NISQ", "RA", "RB", 

"RB14", "RC", "RG", "RLP", "RP 2", "RQ", "RRPA", "RSB", "RSCT", 
"RU", "RZ", "Rl", "R1C", "R2", "R22", "R24", "ST1", "ST2", "TMZ", 

"TOV", "TP", "TRSM", "TSGN", "TSGN2", "WA", "WALP", "WB”, "WGx", 
"WLP", "WOVC", "WOVI", "WOVR", "WP", "WPx", "WP2", "WQ", "WS", 

"WX", "WY", "WYx", "WZ", 

// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM B ONLY; 
// NOT USED OUTSIDE CPM 
// 

"RSC", "WSC", "WG", 

// OUTPUTS FROM SUBSYSTEM A; USED AS INPUTS TO SUBSYSTEM C ONLY; 
// NOT USED OUTSIDE CPM 
// 

"SDV1", "SMP1", "SRSM3" , 


// EXTERNAL OUTPUTS FROM SUBSYSTEM B 



// 

"RAO", "RA1", "RA2", "RA3", "RA4", "RA5", "RA6", "RA7", "RAIO", 

"RA12", "RA13", "RA14", "RBK", "WAO", "WA1", "WA2", "WA3", "WAIO 
"WA11", "WA12", "WA13", "WA14", "WBK", "WGn", "W20", "W21", "W22 

// THESE ARE THE LEFTOVERS — THEY'RE PROBABLY USED IN SUBSYSTEM 

// 

"GENRST", "CLINH", "CLINH1", "CLSTA", "CLSTB", "CLISQ", "CLRP", 
"RPT", "SBWG", "SETSTB", "WE", "WPCTR", ”WSQ", "WSTB", "R2000" 


void SEQ::execWP_GENRST() 

{ 

register_SQ.write(0); 
register_BRl.write(0); 
register_BR2.write(0); 
register_SNI.write(0); 
register_LOOPCTR.write(0) ; 
register_STA.write(0) ; 
register_STB.write(0); 

} 

void SEQ::execWP_WSQ() 

{ 

register_SQ.write(BUS::glbl_WRITE_BUS >> 12); 

} 


void SEQ: :execWP_NISQ () 

{ 

register_SNI.writeField(1, 1, 1); // change to write(1)7? 

} 

void SEQ::execWP_CLISQ() 

{ 

register_SNI.writeField(1,1,0); // change to write (0)7? 

} 


bool SEQ::isAsserted(cpType pulse) 

{ 

for(unsigned i=0; i<MAXPULSES; i++) 

if(glbl_cp[i] == pulse) return true; 
return false; 

} 


char* SEQ::getControlPulses() 

{ 

static char buf[MAXPULSES*6]; 
strcpy(buf,""); 

for(unsigned i=0; i<MAXPULSES && glbl_cp[i] != NO_PULSE; i++) 

{ 

strcat(buf, cpTypeString[glbl_cp[i]]); 
strcat(buf," "); 

} 

//if(strcmp(buf,"") == 0) strcat(buf,"NONE"); 
return buf; 

} 


void SEQ::execWP_STl() 

{ 

register_STA.writeField(1,1,1) ; 

} 


RA11", 

, "W23" 

C 

INH" , 



void SEQ::execWP_ST2 () 

{ 

register_STA.writeField(2,2,1) ; 

} 


void 

{ 

} 


SEQ::execWP_TRSM() 

if(ADR::EQU_25()) 

register_STA.writeField(2,2,1); 


void SEQ::execWP_CLSTA() 

{ 

register_STA.writeField(2,1,0); 

} 


void SEQ::execWP_WSTB() 

{ 

register_STB.write(SEQ::register_STA.read()); 

} 

void SEQ::execWP_CLSTB() 

{ 

register_STB.writeField(2,1,0); 

} 

void SEQ::execWP_SETSTB() 

{ 

register_STB.writeField(2,1,1) ; 

} 


void SEQ::execWP_TSGN() 

{ 

// Set Branch 1 FF 

// if sign bit is '1' (negative sign) 

if(BUS::glbl_WRITE_BUS & 0100000) 
register_BRl.write(1) ; 

else 

register_BRl.write(0) ; 


void SEQ::execWP_TOV() 

{ 

// Set Branch 1 FF 

// if negative overflow (sign==l; overflow==0) 

if((BUS::glbl_WRITE_BUS & 0140000) == 0100000) 
register_BRl.write(1) ; 

else 

register_BRl.write(0) ; 


// Set Branch 2 FF 

// if positive overflow (sign==0; oveflow==l) 

if((BUS::glbl_WRITE_BUS & 0140000) == 0040000) 
register_BR2.write(1); 

else 


register_BR2.write 


( 0 ) ; 


void SEQ::execWP_TSGN2() 

{ 

// Set Branch 2 FF 

// if sign bit is '1 1 (negative sign) 



if(BUS::glbl_WRITE_BUS & 0100000) 
register_BR2.write(1) ; 

else 

register_BR2.write(0) ; 


void 

{ 


SEQ::execWP_TMZ() 

// Set Branch 2 FF 
// if minus zero 

if(BUS::glbl_WRITE_BUS == 0177777) 
register_BR2.write(1) ; 

else 

register_BR2.write(0) ; 


void SEQ::execWP_CTR() 

{ 

register_LOOPCTR.write(register_LOOPCTR.read()+1) 

} 

void SEQ::execWP_CLCTR() 

{ 

register_LOOPCTR.write(0) ; 

} 



TPG (TPG.h) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* TPG - TIME PULSE GENERATOR subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: TPG.h 

k 

* VERSIONS: 

* 

* DESCRIPTION: 

* Time Pulse Generator and Start/Stop Logic for the Block 1 Apollo Guidance 

* Computer prototype (AGC4). 

•k 

* SOURCES: 

* Mostly based on information from "Logical Description for the Apollo 

* Guidance Computer (AGC4)", Albert Hopkins, Ramon Alonso, and Hugh 

* Blair-Smith, R-393, MIT Instrumentation Laboratory, 1963. 

k 

* NOTES: 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*/ 

#ifndef TPG_H 
#define TPG_H 

#include "reg.h" 

// Start/Stop Logic and Time Pulse Generator Subsystem 
enum tpType { 


STBY 

=0, 





PWRON 

=1, 





TP 1 

=2, 

// 

TIME 

PULSE 

1: start of memory cycle time (MCT) 

TP2 

=3, 





TP 3 

= 4, 





TP 4 

= 5, 





TP 5 

= 6, 





TP 6 

= 7, 

// 

EMEM 

is available in G register by TP6 

TP 7 

= 8, 

// 

FMEM 

is available in G register by TP7 

TP 8 

= 9, 





TP 9 

= 10, 





TP 10 

=ii. 

// 

G register 

written to memory beginning at TP10 

TP 11 

= 12, 

// 

TIME 

PULSE 

11: end of memory cycle time (MCT) 

TP 12 

= 13, 

// 

select new 

subsequence/select new instruction 

SRLSE 

= 14, 

// 

step 

switch release 

WAIT 

= 15 






} ; 

class regSG : public reg 

{ 

public: regSGO : reg(4, "%02o") { } 

}; 


class TPG 

{ 

public: 

static void doexecWP_TPG() ; 


static regSG register_SG; 
static char* tpTypestring[]; 

} ; 


#endif 



TPG (TPG.cpp) 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* TPG - TIME PULSE GENERATOR subsystem 

★ 

* AUTHOR: John Pultorak 

* DATE: 9/22/01 

* FILE: TPG.cpp 

k 

* NOTES: see header file. 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k / 

#include "TPG.h" 

#include "MON.h" 

#include "SCL.h" 

#include "SEQ.h" 

#include "OUT.h" 


char* TPG::tpTypestring[] = // must correspond to tpType enumerated type 

{ 

"STBY", "PWRON", "TP1", "TP2 ", "TP 3", "TP4", "TP5", "TP6", "TP7", "TP8", 
"TP9", "TP10", "TP11", "TP12", "SRLSE", "WAIT" 


regSG TPG::register_SG; // static member 


void TPG: 

{ 


: doexecWP_TPG() 


unsigned mystate = register_SG.read(); 
if(MON::PURST) 

mystate = STBY; 


else 

switch(mystate) 

i 



case 

STBY: 

if(!MON::PURST && (( 

! MON : : FC1 

case 

PWRON: 

if(((!MON::FCLK) || 

SCL: :F13. 

case 

TP 1 


mystate = TP2; 

break; 

case 

TP 2 


mystate = TP3; 

break; 

case 

TP 3 


mystate = TP4; 

break; 

case 

TP 4 


mystate = TP5; 

break; 

case 

TP 5 


mystate = TP6; 

break; 

case 

TP 6 


mystate = TP7; 

break; 

case 

TP 7 


mystate = TP8; 

break; 

case 

TP 8 


mystate = TP9; 

break; 

case 

TP 9 


mystate = TP10; 

break; 

case 

TP10 : 

mystate = TP11; 

break; 

case 

case 

TP 11: 

TP12 : 

mystate = TP12; 

break; 


if(SEQ: 

: register_SNI.read() 
mystate = STBY; 

& & OUT:: 


mystate = TP1; break; 


else if 

else 

break; 
case SRLSE: 
case WAIT: 

if(MON: 


// the next transition to TP1 is incompletely decoded; it works because 
// the transition to STBY has already been tested. 

((MON::RUN) || (!SEQ::register_SNI.read() && MON::INST)) 

mystate = TP1; 

mystate = SRLSE; 

if (!MON::STEP) mystate = WAIT; break; 


: STEP || MON::RUN) 
mystate = TP1; 


break; 


default: 


break; 

} 

register_SG.write(mystate); 





